>perl
my $a = 'Das %i das %h vom Nikolaus mit 3%% %r';

my %ersetzen = (
        i => 'ist',
        h => 'Haus',
        r => 'Rendite',
        '%' => '%',
);

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

print "$a\n";

^D
Das ist das Haus vom Nikolaus mit 3% Rendite