#!/usr/bin/perl -w

use strict;
use warnings;

my $test = 'abc';
my @matches;

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