Hi,

Here's another one ... I hope you like it

#!/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]

Btw. Thanks to the guys who helped me out last night ;-)

The sky turned white in the middle of the night - DvV