if ( $string =~ /[^[:alnum:]]/ ) {