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