#!/usr/bin/perl -w

  use strict;
  use warnings;

  use Readonly;
  Readonly my $NEWLINE => '^M';

  while (<>) {
      s/\Q$NEWLINE$//;
      print;
  }