Select Code to Download

sub glob2pat {
    my $globstr = shift;
...
    
    return '^' . $globstr . '$';
}

$globstr =~ s{(?:^|(?<=[^\\]))(.)} { $patmap{$1} || "\Q$1" }ge;