#!/usr/bin/perl -w

use strict;

while(<>) {
	s/\r*\n*$//;
	print;
}