[linux] perl script help

[maros franko]

Dobry den,

pokusam sa vytvorit v perle script ktory nacita html subor, a najde
riadok v ktorom sa vyskytuje "daky" text.
Vyzera takto:
open (FILE, "temp.txt") || die "Can't open temp file. $!";
$count = 1;
while (<FILE>) {
  chomp(@line=split(/\n/,"$_"));
  if (@line =~ m/tr/)
  {
    print $count++,"-->",$line[0],"\n";
  }else{
    print $count++,"\t",$line[0],"\n";
  }
}

problem je, ze script ten pattern nikdy nenajde nech dam hladat cokolvek.
mozete mi prosim poradit co mam zle.

THX