В Perl существует несколько методов извлечения первого и последнего символа из строки. Вот несколько примеров:

1. Использование substr():

   my $string = "Hello";
   my $first_char = substr($string, 0, 1);
   my $last_char = substr($string, -1);

2. Использование регулярных выражений:

   my $string = "Hello";
   my ($first_char) = $string =~ /^(.)/;
   my ($last_char) = $string =~ /(.+)$/;

3. Использование функции Split():

   my $string = "Hello";
   my ($first_char) = split(//, $string);
   my ($last_char) = split(//, reverse($string));

4. Использование substr() и length():

   my $string = "Hello";
   my $first_char = substr($string, 0, 1);
   my $last_char = substr($string, length($string) - 1);

5. Использование unpack():

   my $string = "Hello";
   my $first_char = unpack("A", $string);
   my $last_char = unpack("x[A]", $string);