My first japh!

[rvosa]

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 ;-)