#!/usr/bin/perl -ni s/\r/\n/g; print;