my $f = substr($str, 0, 1);
my $l = substr($str, length($str)-1, 1);
print $f, ' ', $l;