Select Code to Download

use strict;
use warnings;
...

my @extracts = $text =~ m{$rxExtract}g;
print qq{Match $_: $extracts[$_]\n} for 0 .. $#extracts;

Match 0: 282
Match 1: 376
...
Match 12: 662
Match 13: 282
Match 14: 282