while(<>){
tr/\r\n/z/;
print "$_ is good\n";
}
こういうコードで試験しました