#!/usr/bin/perl -i.bak -w
while (<>) {
    s/^\n$/\r\n/;
    print;
}