my $drivespec = qr{[a-zA-Z]:};
my $dir            = qr{[^<>":|?*]*};
my $path         = qr{^ $drivespec? $dir $}x;

unless( $input->{$key} =~ $path ) {
    ...
}