# 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