#!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";
  }
}