Select Code to Download

sub captures {
    local $_ = shift;
...
    }
    $n;
}

use Test::More;

...
for ( @regexps ) {
    is( captures( $_->[0] ), $_->[1], "$_->[1] captures" );
}