Text mit Liste aus Wörten effizient vergleichen ?

[$xNeTworKx.]

Hi,
habs jetzt glaube ich relativ effizient gelöst :
(Die Wörter sind durch | getrennt)

open(FILE,'censored.cgi') or die "Kann censored.cgi nicht oeffnen : $!\n";
local $/;
my @input = split('|',<FILE>);
.
.
.

foreach(@input)  {
$text =~ s/$_/censored/sig;
}

..oder noch eine bessere Lösung ?
$xNeTworKx.