Help for this page

Select Code to Download

Select or download this

$_="JussJsstssPerlJssjsssssPsjusjsssuerpjsjsssusjpersjulJllsjJsjsssu";
+my
($a,$p);print do{s^.^$_="jsreutPJpl";s/$&/$p=pos/e;$p^eg;for$p(split//
+,"
23332233333322333232233"){$a+=$p;s#.{$a}#$&.#;$a++}eval}.$/