#!/usr/bin/perl

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