$y=10; while(<>){chomp;@_=split//; while(@_){$_=shift@_; $y>=$_?($a.=$y=$_,$k++): ($x<$k?($x=$k,$b=$a):(),$k=$a="",$y=10,unshift@_,$_) } $x<$k?($x=$k,$b=$a):();print"$b\n";$x=$k=0;$y=10}