#!/usr/bin/perl -w
use strict;$;=
";Jtunsitr pa;ngo;t1h\$e;r. )p.e(r;ls ;h;a;c.k^e;rs\20
";$_=$;;do{$..=chop}while(chop);$_=$;;eval$.;
[download]

This was my first attempt at a JAPH about a year and a half ago. I think it still is my best one (mostly because I only made about two after this one).