Select Code to Download

while ($text =~ m/(APCs?)((?:\s|,|and|\d{3})+)/xgc) {
    my ($apc, $nums) = ($1, $2);
...
for my $n (0..$#extracts) {
    print "Match $n = $extracts[$n]\n";
}

while (my @match = $text =~ m/(APCs?)(?:(?:\s|,|and)+(\d{3}))+/xgc) {
    push @extracts, @match;
}