#!/usr/bin/perl
while (<>) {
s/\cM/\n/g;
chop;
print;
}

