# http://www.cs.dal.ca/~vlado/srcperl/snip/encode_w # (c) 2005 Vlado Keselj # # See encode_w sub decode_w { local $_ = shift; s/x([0-9A-Fa-f][0-9A-Fa-f])/pack("c",hex($1))/ge; return $_; } 1;