#undef $/;
$/ = \2048;         # 2K blocks
my $blocksz = 2048;

open IN, "tmp";
open OUT, ">>$ARGV[1]";   #more efficient when parsing more than one block

#Extract the necessary data bits
my $block01 = <IN>;
my $block02 = '';
while ($block02 = <IN>) {

     my $block = $block01.$block02;
     $block =~ s/11110100.{8}(.{1520})11110100.{8}(.{464}).{1056}/$1$2/g;

#     $_ =~ s/11110100.{8}(.{1520})11110100.{8}(.{464}).{1056}/$1$2/g;

#     $final - pack("B*", $_); #Conver data back to original binary format
#     $final = pack("B*", $block);  # this is wrong
     $final = pack("B*", substr($block,0,$blocksz)); # this should work

     print OUT "$final";

     $final = ''; # this is strictly unnecssary but does keep variable clean
#     undef $final;

     $block01 = substr($block,-$blocksz);  # this moves the upper block down 
}

$final = pack("B*", substr($block,-$blocksz)); # get final block
print OUT "$final";

close OUT;
close IN;