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