use strict;
use warnings;

my $str = "hello\nworld";
my ($first, $last);

$str =~ m/ (?{ $first = substr($str, 0, 1); $last = substr($str, -1) }) /x;
print "first: '$first';    last: '$last'\n";