A JAPH using Regex. It does a lot of useless thing with regex, arrays and strings. Doing this i learnt a lot about using regexes.

#!/usr/bin/perl#######rejaph###########by_Throttle##################
my @japh;;;;;;;;;;;$s=" ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$a="JustStheSwaySyouSare";$b="AnotherSdaySinSparadise";$c###########
="PerlSwisdom";$d="EverybodySwillShackStheSworld";@just=split('S',$a
);$just=join(' ',@just);$just=~/Just/;$just=$&;push(@japh,$just);###
push(@japh,$s);@another=split('S',$b);$another=join(' ',@another);##
$another=~/Another/;$another=$&;push(@japh,$another);push(@japh,$s);
@perl=split('S',$c);$perl=join(' ',@perl);$perl=~/Perl/;$perl=$&;###
push(@japh,$perl);push(@japh,$s);@hack=split('S',$d);$hack=join(' ',
@hack);$hack=~/hack/;$hack=$&;push(@japh, $hack);push(@japh,"\n");;;
my$i;foreach(@japh){print$japh[$i];$i++};#;#,#;#;#;#;#;#;#;#;#;#;#;#
[download]