use strict;
my $fname = 'Larry';
my $fi    = substr($fname, 0, 1);    # $fi = 'L'
my ($fi)  = $fname =~ /^(.)/;        # $fi = 'L'
my $fi    = (split //, $fname)[0];   # $fi = 'L'