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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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