#!perl -lp //;y/ -~/ÿ/;$_=$b=($b||$')&~$_.'ÿ'x99|$_&$'