open I1, '<:raw', 'zz.pl';;
$d1 = do{ local $/; <I1> };;
print length $d1;;
6712

open I2, '<', 'zz.pl';;
$d2 = do{ local $/; <I2> };;
print length $d2;;
6571

!wc -l zz.pl;;
    141 zz.pl

print unpack 'H*', substr $d1, 0, 100;;
23 21 20 70 65 72 6c 20 2d 73 6c 77 0d 0a 75 73 ...

print unpack 'H*', substr $d2, 0, 100;;
23 21 20 70 65 72 6c 20 2d 73 6c 77 0a 75 73 ...