Select Code to Download

#        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

#        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

#        1         2         3         4
#23456789_123456789_123456789_123456789_123

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