if ($str =~ /[^[:alpha:][:digit:].]/) {
   die("Bad data\n");
}