http://qs1969.pair.com?node_id=634924

Dear monks,

here's my first japh. Probably still too simple and verbose for the gurus, though :-)
open$h,chr${$/}*30,\q/200036443006022244385048300450485630380608105048 +18/if$/=\2;print substr q/unpack"C",join" ",shift(readlink) $/,$_/${$ +/},${$/}/2for<$h>
Update: I forgot a cardinal obfu rule ;-)