Select Code to Download

use strict;
use warnings;
...

my $rv = parser('abcd');
print("$_\n") for @$rv;

a|b
c|d

            (?<expr>
                (?&foo)
...
            (?<foo>
                .
            )