s/(0x[0-9a-fA-F]+)/chr(oct($1))/ego;