#!/usr/bin/perl -w
$_=qr;/0x(\w\w);;q./0xxx.=~m _${\_}_g;@_=qw;
/0x4a/0x75/0x73/0x74/0x20/0x41/0x6e/0x6f/0x74/0x68/0x65/0x72
/0x20/0x50/0x65/0x72/0x6c/0x20/0x48/0x61/0x63/0x6b/0x65/0x72;
;for(@_){print+sprintf(q,%1c,,hex $1)while(//);}print+qq _\x0a_;