$fname = 'thomas';
$fname =~ /^(\w{1})/;