You decide...

#!/usr/bin/perl
use strict;               # use strict
sub q(){return "JAPH"}    # gotta have a JAPH
$_=q;                     # get JAPH
Just_Another_Perl_Hacker: # unused label
;                         # white space to break up
;s/\043.*$//gm;s/^\s+//g  # the monotony
;s/\012//g;join('',map{$_ # add to the JAPH
=chr((ord($_)>>1))}map{$_ # and "flesh it" out
=chr((ord($_)<<1))}split) # almost done
;s/\d//g;s/\137/\040/g;$_ # can we do it?
.=$/;s/\072//;print;      # Oh yeah!
[download]