Suchen in txt Datei

[Marcus Vieß]

$such = 'blade';
print 'Sie lassen nach : $such suchen<br><br>';
open (FH, '$searchdata');
while(my $search = <FH>){        #Zeilenweise einlesen
  if ($search =~ m/$such/g) {   #Suchen nach dem Wort: und
  print "blubb<br>";
  }
}
close(FH);

jetzt bekomme ich 3 x Blubb. Jaja schön, es blubbt halt  :-) ich hätte aber gerne genau  "NUR" die Zeilen ausgegeben in denen er was gefunden hat.

Also wenn das Datafile so aussieht :

Braindead, http://www.blutsdvdpage.de/ab18/cgi-bin/review.cgi?braindead
Blade Runner, http://www.blutsdvdpage.de/ab18/cgi-bin/review.cgi?bladerunner
Barb Wire, http://www.blutsdvdpage.de/ab18/cgi-bin/review.cgi?barbwire
Bad Taste, http://www.blutsdvdpage.de/ab18/cgi-bin/review.cgi?badtaste
Star Trek - Der Aufstand, http://www.blutsdvdpage.de/ab18/cgi-bin/review.cgi?aufstand

Dann hätte ich aus ausgabe gerne nur :

Blade Runner, http://www.blutsdvdpage.de/ab18/cgi-bin/review.cgi?bladerunner

ausgegeben.
Kann mir da einer helfen.

[Marcus Vieß]

while(my $search = <FH>){        #Zeilenweise einlesen
  if ($search =~ m/$such/g) {   #Suchen nach dem Wort: und
  print "blubb<br>";
  }

Ohh mein gott wie Peinlich ..
Geht so z.B. »»   print "$search<br>";

Ich versinke ! Wie schwer und einfach das Leben doch machmal ist ...