{
  local $/ = "\n";

  for my $line (<FILEHANDLE>) {
     $line =~ s/\r?\n$//;

     # do your thing
  }
}