@in = <>; foreach (@in) { $_ =~ s/\n//; $_ =~ s/\r//; print; }