while (defined my $line = <IFILE>) { 
 chomp; # remove \n from the end of the line
 ...
}