while (<INPUT>) {
   my @lines = split "\n";
   # and boom, @lines has each line in your record
   # ready for your parsing pleasure.
....
}