#!/usr/bin/perl - w
use strict;

local $/="\cM";
my $file = $ARGV[0];
open my $fh, '<', $file or die $!;
while(<$fh>){
print $_."\n";
}