in reply to String extraction

You want a substring of a string? Use substr 
my $letter = substr $string, 0, 1

[download]

In Section Seekers of Perl Wisdom