Perl - Textverarbeitung

[Struppi]

Ich will diese liste auf einem Text laufen lassen. Wenn in diesem Text Würter wokommen die in Meine Liste sind dann will ich diese Wörtern markieren.
Ist das möglich mit Perl und wie könnte es ausschauen,

Das geht mit 3 Zeilen:

my $text = <<TEXT;
bla blubb
und test und noch ein testb so.
TEXT

my @list = qw/test testb testc/;
my $pattern = join '|', map quotemeta, @list;
$text =~ s/($pattern)/<mark>$1</mark>/g;

print $text ;

Struppi.