Select Code to Download

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

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