#!/usr/local/bin/perl

while(<>) {
  next unless /^0x([0-9A-F]{4})\s/;
  $data = pack('H*', $1);
  next unless $data =~ /[\xa1-\xfe][\xa1-\xfe]/;
  $data =~ tr/\x80-\xff/\x00-\x7f/;
  printf "0x%s\t$_", unpack('H*', $data);
}