#!/opt/gnu/bin/perl

while (<>) {
   $_ =~ s/\cM\n/\n/g;
   print $_;
}