$max = ( sort {$b<=>$a} map{length} /(!{2,})/g )[0];