Sup!
while ($content =~ m/<[Pp]>($wort).*?$/m) {print $1;}
s (single line) würde ich nicht unbedingt wählen wollen, bzw. nicht allein wählen wollen, denn m (multiple line) ist viel schöner, um mit dem Zeilenende $ auch mitten im Text Zeilenumbrüche zu finden.
Die Option o würde den RegEx nur beim ersten Mal kompilieren - die Variable $wort könnte sich danach ändern, ohne Wirkung zu zeigen. Erhöht die Performance, kann aber stören.
Hmm...mal testen. Erstmal vielen Dank... ich stoere sonst nachher weider ;-)
Gruesse,
Bio