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