Playing around with Perl last night and came up with this.
It's relatively straighforward aside from some substitutions to make it look like trash.
(Although, it is trashy code)

perl -we '$_=q?ya=split//,x_[0];pushyf,pushyf,!refyf;while(yf<2**3*3**
    2){x_=(xf[yf]=xf[-1]+xf[-2]);while(xo=chop().chop){xa[xo%ya]=~tr/A
    -Za-zg:/:A-Za-zg:/ifxo&1orgpushya,shiftya}}xa[ya]=x/;ya?;@_=q/ N/.
    q/pwxJvpAJevE IslqvrETBC/;s/[\n ]//g;tr/xyg/\x24\x40 /;print eval'