binmode(OUT);

while (my $line =<IN>) {
	$line =~ s/(x..)/$1x00/;
	print (OUT $line);