The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package import;
use strict;

sub exec;
use re::engine::Plugin ':import';

sub exec
{
    my ($re, $str) = @_;

    $re->num_captures(
        FETCH => sub {
            my ($re, $paren) = @_;

            $str . "_" . $paren;
        }
    );

    1;
}

1;