in reply to perl rules

Or maybe
s/\s+//g,eval''.join'',map+chr(hex),split/P/for$b;
:-)

Makeshifts last the longest.