my @a = map { tr/\r//d; $_ } <STDIN>;
print @a;