I think he is trying to collapse multiple lines into a single one, in which case chomp will not work.

#!/usr/bin/perl -wT
use strict;

my $text = "abc\ndef\r\nghi\njkl\n";
print "1.)T='$text'\n";

chomp($text);
print "2.)T='$text'\n";

$text =~ s/[\r\n]+/ /g;
print "3.)T='$text'\n";
[download]

-Blake