open my $fh, '>', 'junk.dat' or die $!;

for ( 1 .. 4 ) {
    seek $fh, $_ * 80, 0;
    print $fh $_ x 78, "\r\n";
}

open $fh, '<', 'junk.dat' or die $!;

while ( <$fh> ) {
    use Devel::Peek;
    Dump $_;
}

##</code><code>##

SV = PV(0x189fd70) at 0x18c0a38
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x18a4610 "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\000111111111111111111111111111111111111111111111111111111111111111111111111111111\r\n"\0
  CUR = 160
  LEN = 200
SV = PV(0x189fd70) at 0x18c0a38
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x18a4610 "222222222222222222222222222222222222222222222222222222222222222222222222222222\r\n"\0
  CUR = 80
  LEN = 200
SV = PV(0x189fd70) at 0x18c0a38
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x18a4610 "333333333333333333333333333333333333333333333333333333333333333333333333333333\r\n"\0
  CUR = 80
  LEN = 200
SV = PV(0x189fd70) at 0x18c0a38
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x18a4610 "444444444444444444444444444444444444444444444444444444444444444444444444444444\r\n"\0
  CUR = 80
  LEN = 200

##</code><code>##

$ perl -E 'say "\0\0\0ABC"
ABC
$ perl -E 'say "\0\0\0ABC"' | perl -nE 'printf "%vx\n", $_'
0.0.0.41.42.43.a