my @liste = qw(heute morgen);
my $text = 'heute war ein toller morgen. morgen wird es noch besser';
my $regex = join "|",@liste;
$text =~ s!($regex)!<font color="red">$1</font>!g;
print $text;