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