#!/usr/bin/perl -p
tr/\r//d;