#!/usr/bin/perl -w
 
use strict;
 
print join '',(map y/p`j/P J/?$_:$_,map pack("C",unpack("C","`")+unpack("N",pack("B*",("0"x(unpack("C"," ")-length)).$_))),unpack("B*",pack("C*",map hex,'55674005cfa20b2040b2601011acb2'=~/\w{2}/g))=~/\d{5}/g),"\n";