($firstword) = $word =~ /^(.*?):/;