Select Code to Download

#!/usr/bin/perl

...
push @fields, $& while $string =~ /\b([A-Z])\*.*?\*\1\b/g;

print Dumper \@fields;

$VAR1 = [
          'C*ID1*Mac*C',
...
          'D*ID1*Spore 1*D',
          'D*ID2*Spore 2 game*D'
        ];