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;