#!perl -ln0 for$;(map chr,33..y/./ /){print@@.$",$;x@@if@@=/(?<=(?1).{19}) |(\Q$;\E) | (?=(?1)|.{19}(?1))/sg}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page