my ($f,$l) = /^(.).*(?<=(.))/s;

##</code><code>##

my $f = substr($_,  0, 1);
my $l = substr($_, -1, 1);