$ perl -e " print qq[0\n0\n0] " > 3zeros $ od -tacx1 3zeros 0000000 0 cr nl 0 cr nl 0 0 \r \n 0 \r \n 0 30 0d 0a 30 0d 0a 30 0000007 $ perl -le " while ( my $line = <> ) { 1 } print $. " 3zeros 3 $ perl -E " while ( my $line = <> ) { say q[!!],!!($line) } say $. " 3zeros !!1 !!1 !! 3