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