wenn es wirklich nur way einfach sein soll, läßt sich das einfacher mit einem HASH realisieren.
In etwa so:
#!/usr/bin/perl -w
use strict;
my $text = <<"TXT";
Hallo %NAME%!
TXTmy %hash =(
NAME => 'Struppi'
);$text =~ s/%([^%]+)%/$hash{$1}/g;
print $text;
Das ist genau das, was ich gesucht hab, funktioniert blendend :)
> Struppi.
Vielen Dank!
Daniel