To be more obfuscated (and to get the carriage return in), why not try:
$d="4a75737420416e6f74686572205065726c204861636b65720a";while($d){($b,$d)=($d=~/(.{2})(.*)/g);print(chr(hex$b));} While doing a japh within "use strict;" AND "-w" is impressive, it's also cool to work less characters (and less spacing). Also, instead of the for-loop using the length of $d, I thought it might be neater to use a while-loop controlled by a diminishing $d.