#!/usr/bin/perl -w # this echos a japh ########
$r=qq q\qq; sub d{chomp  foreach(@_);}$q=sub(@)
{($just =$_[0])=~ s/.*\/([^ ]*).*\n/$1/g;$_[1]
+=
qq.\: ..(join "",grep{/^j/;} keys %::).qq[ ];$_
[0]=~s/.*s\s(.*)s/$1/g;*y=\${$,}[2];$f="$1$2$1"
."$2$1".qq 323 if ${$,}[0]=~m/ (\w)\s.(.)/g;$q=
$1 if $f=~/.(.)/;$_=0xf9;(($_[2]=${$1 if($_&=$_
-147,1)&&($_[1]=~/ (.*) /)}).=$_[2])=~s|(p)|h|g
;$g=qr r(.)....r;$y=~y yly  y;$_|=3;($z="fuck"&
"   _")=~s/\s*//;$just=~/.(..).$/;$x=pack$f,$d,
$f,chr,lc$z,$1; $d=~s/$g/${$r}not$1/;&d;@_=(@_[
0..2],$just,$x);@x=@_;$_=join" ",@x;@{$,}=${$,}
;}; $ARGV&#91;0&#93;=<${0}>;$,="_";@_=<>;*y=*d;&$q;($,=
qx"@_")=~s/.*: //g;chomp($,);$_=0;print"","\n";
[download]

note that reading this code might not be appropiate if you are under a certain age, since I am using that f-word.