in reply to String extraction

my $letter = chr(ord($string));

[download]

In Section Seekers of Perl Wisdom