#        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

##</code><code>##

#        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

##</code><code>##

#        1         2         3         4
#23456789_123456789_123456789_123456789_123

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