map{$n=s#.#$i=$/x($i<$&).$&#ge;$n--until/.{$n}
/;print$&}<>