$_="\n";
my ($letter) = /^(.)/;
print "Regex: '$letter'\n";
$letter=substr($_,0,1);
print "Substr:'$letter'\n";