Select Code to Download

use strict;
use warnings;
...
my $empty='';
say "successful //" if ' ' =~ /$empty/;
test();

--- run 1
0<>
...
--- run 4
1<x>
2<x>

...
for my $tybalt (qw/ () | (?:) g{0}/) {
...
    say "successful /$tybalt/" if ' ' =~ /$tybalt/;
    test();
}

successful /()/
--- run 5
...
0<>
1<>
2<>