Help for this page

Select Code to Download

Select or download this

sub glob2pat {
    my $globstr = shift;
...
    local $" = '';
    return "^@chars\$";
}