if($var  eq join '', map{ tr/\000..\177/ /c; $_; }  split '', $var ) {...}