nicht angemeldet
use Mosche;
[ Wörter aus Text ersetzen ]
habs jetzt glaube ich relativ effizient gelöst :
(Die Wörter sind durch | getrennt)
Wenn die sowieso mit | getrennt sind, dann kannst du ja auch deine Regex so einsetzen:
local $/ = undef;
my $re = <FILE>;
$text =~ s/$re/censored/eg;
Das 'e' steht für evaluate (oder execute) und bewirkt, dass dein $re geparst wird.
Solltest du mal ausprobieren, ist leider ungetestet, da ich hier (in der Schule) kein Perl zur Verfügung hab.
use Tschoe qw(Matti);