#!/usr/bin/perl

use warnings;
use strict;

while(<>) {
  s/^0x/00/g;
  s/ ([0-9a-fA-F]{2})([0-9a-fA-F]{2})/ $1 $2/g;
  print;
}

__END__

asdf
