#!/usr/bin/perl -pi
s/(\012?\r|\r?\012)/\012/g;