#!/usr/bin/perl
# Name: output.pl
#
while (<>)
  next if !~ m/([0-9a-f])([0-9a-f]) ([0-9a-f])([0-9a-f])/;
  $a = sprintf("%s%s%s%s",$1,$2,$3,$4);
}