unless ($input->{$key} =~ /^[a-zA-Z]?:?[^\<\>\:\"\|\?\*]+$/) {
    $input->{$key} =~ /[\<\>\:\"\|\?\*]/;
    die "Error, found $&";
}#unless