#        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