try $rw, "multiple capturing $one", $one.$one.'\\'.$one.$one,
'(.)(.)\\'.$one.'(.)';
try $rw, "multiple capturing $one", $one.$one.'\\'.$one.$one,
'(.)(.)\\'.$one.'(.)';
try $rw, "multiple capturing $any (greedy)", $any.$any.'\\'.$any.$any,
'(.*)\\'.$any.'(.*)';
my $wc = $any.$any.$one.$one.'\\'.$one.$one.'\\'.$any.$any;
try $rw, "multiple capturing $any (greedy) and capturing $one",
$wc, '(.*)(.)(.)\\'.$one.'(.)\\'.$any.'(.*)';
try $rw, "multiple capturing $any (greedy)", $any.$any.'\\'.$any.$any,
'(.*)\\'.$any.'(.*)';
my $wc = $any.$any.$one.$one.'\\'.$one.$one.'\\'.$any.$any;
try $rw, "multiple capturing $any (greedy) and capturing $one",
$wc, '(.*)(.)(.)\\'.$one.'(.)\\'.$any.'(.*)';
try $rw, "multiple capturing $any (greedy) and non-capturing $one",
$wc, '(.*)..\\'.$one.'.\\'.$any.'(.*)';
try $rw, "multiple capturing $any (greedy) and non-capturing $one",
$wc, '(.*)..\\'.$one.'.\\'.$any.'(.*)';
alltests 'jokers', '?', '*';
alltests 'sql', '_', '%';
alltests 'jokers', '?', '*';
alltests 'sql', '_', '%';