($letter) = $string =~ /^(.)/;