elsif ( $x =~ /[^\w\s]/ ) {
            $x = "";
        }