Suchen in txt Datei

[Marcus Vieß]

use strict;
$searchdata='/is/htdocs/www.bla.de/searchdata.txt';
print 'Welche Datei wollen Sie durchsuchen : ';
chomp (my $searchdata=<>);

open (FH, "<$searchdata");

while(my $search = <FH>){        #Zeilenweise einlesen
  if ($search =~ m/Blade/g) {   #Suchen nach dem Wort: und
  print $. , '.Zeile: 'Blade' gefunden\n';
  }
}
  close(FH);

Ich möchte das Wort Blade in der TXT finden und die ganze Zeile in der es steht ausgeben. Aber irgendwie klappert das nicht ...

Also Quasi nach *blade* suchen, Groß- Kleinschreibung soll egal sein, um noch mehr treffer zu bekommen ...