#!/usr/bin/perl -w

for $line (<STDIN>) {
	$line =~ s/[\r\s]+$//;
	print "$line\n";
}