Something like^[1] this should work for the file format that you've described

{
  open(my $fh, "somfile.xyz") or die("ack - $!");
  local $/ = \100;
  my @info;
  push @info, unpack('C6C10C10C10C64', $_) while <$fh>;
}
[download]

This reads 100 bytes of the file at a time then splits each chunk on the described byte boundaries. See. the unpack(), pack() and perlvar() manpages for more details.
HTH

_________
broquaint

^[1] this code is untested but the theory behind it should follow