JAPH

I’ve been meaning to write a JAPH signature for a while, but just got around to a first cut yesterday. Here ’tis:

#!/usr/bin/perl -l
$_ = q&))r 22756 o 636168602 p 627560502275686
47 s 6 r 6160247375 7n4(jd,"" avbw,"46U" (xpnc
gavec&;y/A-Za-z/N-ZA-Mn-za-m/;$_ = reverse $_;
eval;

Tags: Perl