ぱっと見て何してるかわかりやすく書くとすれば
s/>([^><]+)</&hoge($1)/eg;
sub hoge { my $set = shift; $set =~ s/A/AA/g; return $set; }
こんな感じ？