if ($str =~ /[^a-zA-Z0-9.]/) {
   die("Bad data\n");
}