xNeTworKx: Warum funktioniert über mehrere Zeilen suchen nicht ?

Beitrag lesen

Hallo nochmal,
ich habe jetzt eine vorübergehende, nicht so elegante Lösung:
#!C:/Perl/bin/Perl.exe -w

use strict;
my $in;
my $inhalt;
print "Content-type:text/html\n\n";
open(FILE,"1012512977.txt") or die "cant open File : $!\n";

while (<FILE>)   {
 $in .= $_
 }
$in =~ s/<br>/<umbruch>/g;
$in =~ s/\n//g;
if ($in =~ /<text>(.*)</text>/)  {
$inhalt = $1;
$inhalt =~ s/<umbruch>/<br>/g;
}
print $inhalt;

Weis einer vielleicht noch eine bessere Lösung ?