#        1         2         3         4         5         6         7
#23456789_123456789_123456789_123456789_123456789_123456789_123456789_
+123456789

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

Untested code ahead

#        1         2         3         4         5         6         7
#23456789_123456789_123456789_123456789_123456789_123456789_123456789_
+1

my@W=sort length$b<=>length$a,$_[0]=~/\w+/g;grep length==length$W[0],@
+W
[download]

See, no parens :)

But, since we're playing golf...

#        1         2         3         4
#23456789_123456789_123456789_123456789_123

push@{$_[y///c]},$_ for+pop=~/\w+/g;@{+pop}
[download]

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.