my $blocksize = 1000000;
my $lb = length $bin;
my $offset = 0;
while( $offset < $lb ) {
  substr $bin, $offset, $blocksize, ~substr( $bin, $offset, $blocksize );
  $offset += $blocksize;
}