if ($string =~ /[^a-zA-Z0-9.]/) {
  die "Ungueltiges Zeichen entdeckt";
}