This works on both on Unix and Windows. Enjoy :-)
#!/usr/bin/perl -w
my@j=qw(j a p h);my@s=(" "," "," "," "," "," ");my$r="\
+n";my$t="\t";print"$r";print"$j[0]"x7,"$t$t$j[1]$t$s[5]$s[1]","$j[2]"
+x5,"$t$s[2]$j[3]$s[1]$j[3]$r";print"$s[2]$j[0]$t$s[5] $j[1]$s[0]$j[1]
+$t$s[5]$s[1]$j[2]$s[3]$j[2]$s[4]$j[3]$s[1]$j[3]$r";print"$s[2]$j[0]$t
+$s[5]","$j[1]"x5,"$t$s[5]$s[1]","$j[2]"x5,"$s[5]","$j[3]"x4,"$r";prin
+t"$j[0]$s[1]$j[0]$t$s[4]$j[1]$s[4]$j[1]$s[5]$s[5]$j[2]$s[5]$s[3]$j[3]
+$s[1]$j[3]$r";print"$s[0]$j[0]$j[0]$s[1]ust$s[3]$j[1]$t$s[3]$j[1]$s[0
+]nother$s[3]$j[2]$s[3]erl$s[2]$j[3]$s[1]$j[3]$s[0]acker$r$r";
RedDog