open(my $fh, "mahoosive_file") or die("ack - $!");
my @chunks;
{
    local $/ = \24576;
    push @chunks, $_ while <$fh>;
}