Warum funktioniert über mehrere Zeilen suchen nicht ?

[xNeTworKx]

Hallo,
ich hab das Problem, daß ich einen Suchausdruck über mehrere Zeilen anwenden will, zB ich will alles einlesen was zwischen <text> und </text> steht. Es funktioniert aber nicht, er findet einfach nix.
Ich lese das ganze File als Skalarwert ein ,aber er findet trotzdem nichts.

So lese ich ein:

#!C:/Perl/bin/Perl.exe -w

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

while (<FILE>)   {
 $in .= $_
 }
print $in;

Wenn ich jetzt aber:
if ($in =~ /<text>(.*)</text>/)  {
$inhalt = $1;
}
print $inhalt;

drauf anwende, passiert gar nichts. Er findet nichts.

So sieht mein Probefile aus:

<top><topic>Network test</topic><name>network</name><email>----</email><hpadresse>----</hpadresse><text>ftrhzdtrhzu dtrhdr
<br>
<br>drz drz drz
<br>
<br>srz b zdtrzu dtu r
<br>
<br>
<br>
<br> duzdrz drz dr zdrz dr zdrz crz dtrz h
<br>
<br>
<br>bui zbvtzu</text></top>

P.S Wenn ich den ganzen Inhalt ausgeben lasse, macht er mir zwischen jedes <br> noch eine Leerzeile, was wahrscheinlich die Ursache dafür ist, daß er nichts findet, aber wie kann ich das umgehen ?