$a =~ s/\%(\%|\w+)/$ersetzen{$1}/ge;

print "$a\n";