in reply to perl rules
s/\s+//g,eval''.join'',map+chr(hex),split/P/for$b; [download]
Makeshifts last the longest.