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