In that case, use the CR to separate the records and the LF to split into lines;

#!perl
use strict;
open IN,'<','weird.txt' or die "$!";
{
  local $/ = "\x0D";
  while (<IN>){
    my @lines = split /\x0A/;
    print $lines[0]."\n";
    print $lines[1]."\n\n";
  }
}
[download]

poj