if ( $word =~ /^([a-zA-Z]+)/ ) {
  $word = $1;
}