[PERL] String matching

[Unrue]

Ciao,
ho iniziato oggi a scrivere qualcosa in Perl, prima volta. Dunque, devo leggere delle righe da file e matcharle con una stringa. Ho scritto questo:

#!/usr/bin/perl
$filename = $ARGV[0];

$results = $ARGV[1];

open(FILE_IN, "< $filename") || die "Errore in apertura file!";


$compare= "procs= 2     1024       4.6       0.2       32       2.4       4.6";

open(FILE_OUT, "> $results");



@righe = <FILE_IN>;
	
for ($i=0; $i<=$#righe; $i++) {
        
  if ($righe[$i] eq $compare)

         { print 'ciao'; 
         }
}

#while ($prova = <FILE_IN>) {
  #    print $prova;
  # }

for ($i=0; $i<=$#righe; $i++) {
  print FILE_OUT  $righe[$i];
}

Solo che, nonostante la stringa ci sia nel file, non la rileva. Dove sbaglio? Grazie.

[Unrue]

Ho risolto, mancava un \n alla fine della stringa di comparazione.