return 0 if $string =~ m/[^$valid]/;