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