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