#!/usr/bin/perl -ni

s/\r//g;
print;