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