map{$n=s#.#$i=$/x($i<$&).$&#ge;$n--until/.{$n} /;print$&}<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page