sub longest_words {
my@W=sort{length($b)<=>length($a)}$_[0]=~/(\w+)/g;grep length==length($W[0]),@W
}