Well, this line:

Print "Wrong! Try again: ";
[download]

is wrong. It's print, all lower-case. I changed that and it ran just fine.

local $_ = "0A72656B636148206C72655020726568746F6E41207473754A";
while(s/..$//) { print chr(hex($&)) }
[download]