if ($input =~ /[^A-Za-z0-9.-_]/) {
    die "nicht erlaubt\n";
}