in reply to Replace characters of input stream on the fly

Could you not use something similar to the following? 

  my $csv = Text::CSV->new ({ eol => qq{\r}, }) or
            die "" . Text::CSV->error_diag ();

[download]

Hope that helps.

In Section Seekers of Perl Wisdom