changing all the carriage returns into commas in perl

[jeffmott]

$value =~ tr/\r/,/;