Select Code to Download

            my $str = "

...
            ";
            my $link = bless(\$str, 'Regexp::Grammars::Precursor');
            $parser = qr{$link}ixs;

            my $str = "

...
                    $rules
            ";
            $parser = qr{$link }ixs;