How about $word =~ s/\:.*$//;