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

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