Help for this page

Select Code to Download


  1. or download this
    

...
eval$_;    print"\n"x  3;;;;       ;;;    $_=
join(''    ,@b)  ;s /  (an)||     |(p)|  (ha)/
ucfirst    ($+)  /gex  ;print     "J$_"  ;;;;;
  2. or download this
    print "This \n\n\n";

...
join(''    ,@b)  ;;;s  /(an)      |(p)|  (ha)/
ucfirst    ($+)  /ge;  print      "has"  ." ";
;;print    "run  \b";  print      "J"..  $_;;;