if( $var eq map tr/\000..\277/ /, $var ) {..}