#!/usr/athena/bin/perl

while(<>) {
    if (/^(.*)\r$/) {
	print "$1\n";
    }
    else {
	print "$_";
    }
}