#!/usr/bin/perl -npi.bak
s/\r/\n/g;
