Ah, sorry, I overlooked that bit. In that case, you could just put the substitution back in at the end of my loop.

Alternatively, the whole thing could be rewritten as a single substitution, with the /e modifier so the replacement will be eval'ed:

$content =~ s/<\?Function\(([^\)]*)\)\?>/
  my $params = $1;
  my @params = $params =~ m,"([^"]*)",g;
  some_param_stuff(@params);
/ge;
[download]