local $/ = \(2*122);
binmode($fixedfile);
while (<$fixedfile>) {
   my @fields = unpack(
      "A2 A10 A33 A15 A19 A10 A3 A18 A6 A4 x2" .
      "A2 A98 A11 A9 x2",
      $_
   );

   ...
   my $total = $fields[3];
   my $timestamp = $fields[4];
   ...
}