Help for this page
{ open(my $fh, '>:raw', 'file') or die("open>: $!\n"); ... local $/ = "\x0D\x0A"; print length, "\n" while <$fh>; }
5 7
5 3 4