#!perl -ln0
for$;(map chr,33..y/./ /){print@@.$",$;x@@if@@=/(?<=(?1).{19}) |(\Q$;\E) | (?=(?1)|.{19}(?1))/sg}