#!perl -lp //;y/ !-~/ÿ/;$_=$a&$_^$a|$'&$_;y// /;$a=$_