#!/usr/bin/perl -w

while(<>) {
	s/\r\n|\n/\r/g;
	print;
}