#!/usr/bin/perl

$^I=".bak";

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