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

##</code><code>##

if ( $word =~ /^([^:]+)/ ) {
  $word = $1;
}