my @matches;
for (@fields) {
   push @matches, /%%(\w+?)%%/g;
}

##</code><code>##

my @matches = map /%%(\w+?)%%/g, @fields;