Var ju ett tag sedan du ställde denna fråga (såg först nu att du inte fått något svar). Möjligt att du redan löst problemet?
Annars kanske följande kodsnutt kan ge inspiration?
<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Perl-kod:<pre>#!/usr/bin/perl -wT
use strict;
my @fula_ord = ('prutta', 'Göran Persson');
my $input = 'Bara Göran Persson vet när Mona pruttade senast.';
print "$input\n";
map {
my $replace = '*' x length($_); # Här är det du söker.
$input =~ s/$_/$replace/gi;
} @fula_ord;
print "$input\n";
