$input->{$key} =~ /[\<\>\:\"\|\?\*]/;
    die "Error, found $&";

##</code><code>##

    $input->{$key} =~ /([\<\>\:\"\|\?\*])/;
    die "Error, found $1";

##</code><code>##

    die "Invalid path: $input->{$key}\n";