sub lword{grep{!$£?$£=length:$£==length}sort{length$b<=>length$a}pop=~/\b(\w+)\b/sg}