#!/usr/bin/perl -w -i
while (<>) {s/\r\n*/\n/g; print;}