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