Select Code to Download

my $drivespec = qr{[a-zA-Z]:};
my $dir            = qr{[^<>":|?*]*};
...
unless( $input->{$key} =~ $path ) {
    ...
}