in reply to Re: String extraction
in thread String extraction

Or even 
my $first_char = (split //, $string)[0];

[download]

In Section Seekers of Perl Wisdom