Help for this page
open I1, '<:raw', 'zz.pl';; $d1 = do{ local $/; <I1> };; ... print unpack 'H*', substr $d2, 0, 100;; 23 21 20 70 65 72 6c 20 2d 73 6c 77 0a 75 73 ...