cjaph

[Darkling]

Ok not at all good but (in my eyes at least) funny.

#!/usr/bin/perl -w
use strict;

open(F,$0);$_=<F>;chomp;$_.=<F>;
s;^.*?\/(..).*?i(.).(.*?)\s.*?\ss(.)(.).(.).*;
J$1$4 a$2o$4he$5 $3 ha$6ke$5!;;
print;

See if you can guess what the c stands for in cjaph.

Darkling.
Think.