#!/usr/local/bin/perl -i.bak

while (<>) 
{
s/\r/,/g;
print
}
