my ($word) = $string =~ /(\W+)/;