#!/usr/bin/perl -p

use Encode;

s/\x0D$//;

unless (/^\@/ or /^\/\//) {

    s/(?<!\\)\\\\((?:\\\\)*)x([0-9A-Fa-f][0-9A-Fa-f])/$1 . ( encode 'utf8', decode 'latin1', chr hex $2 )/eg;
}
