while (<FILE>) {
   my $line = $_;
   chomp($line);    # note, 'chomp' is a safer version of 'chop': see perldoc -f chomp;
   # do something with $line...
}