Select Code to Download

use strict;
use warnings;

...

$test =~ /(a(bc?)?)(??{push @matches, $^N})(?!)/;
print "@matches\n";