while(<FH>){
     @lines=split("\n",$file);
     for $line(@lines){