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

##</code><code>##

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

##</code><code>##

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