($match) = "The longest word" =~ /(\w+)/; print $match;