if( $var eq map tr/A..Za..z0..9/ /, $var ) {..}