open IN, "$ARGV[0]";
binmode IN;
@file = <IN>;
close IN;
foreach $tmp1 (@file) {
$array = unpack("B*", $tmp1);
$final .= $array;
undef $array;
}
undef @file
undef $tmp1;
$final =~ s/11110100.{8}(.{1520})11110100.{8}(.{464}).{1056}/$1$2/g; #EXTRACT USABLE DATA
print "Finished extracting.\n\n";
$finalbinary = pack("B*", $final); #CONVERT BACK TO BINARY
print OUT "$finalbinary";
close OUT;