$/ = \7680;
my $x = 0;

#I LEFT THE OUTPUT AS ASCII-IZED BINARY AT THIS POINT #THUS THE LARGE INCREASE IN FILE SIZE 
open IN, "$tmp2";
open OUT, >$tmp3";
while (<IN>) { 
	$_ =~ s/^.*(11111011000010001111011100010000)/$1/ if $x == 0;
	$x = 1;
	print OUT pack("b*", $_);
} 

close IN;
close OUT;