This is my (oh !!) first JAPH. I'm a little newbie at this place, but I hope that is not too bad :) Please, comment ! 

            &p(qw(Ju));$x=
         $/;$|=$$;$,=$/;$\=$!;
       sub T{eval$_[0]};sub su{T
      q%sel%.q          +ect *a,*
     a,*+.'a,            .06';}sub
    p{T(q;p;.              q 5ri5.q
     qntq)for               @_}map{p
     ('u');&               su;}(1..
     17);sub               s{+$_[0]
     };&s(&su             );$a='rl'
      ;$\=$x;&s(&p("st"));$\=$!;&s
        (&su);sub r($;){+p($_[0]
       )};p(q-A-);sub z{$\=$/?$;:
     $,;$,=$;;su();map{&s(p('a'));&
    s(su);}@_};z((1..7));$,=$x;$\=$,
   ;$"=$\;$,=$/;         $_=q!!;s;;;;
   p(q qnoq.q              rthe\rr);$\
  =$/?$;:$,;$              ,=$;;;;su();
  r "P";map{r              "e";&s||&su;
   }(1..42);$\            =$;;&s(p($a)
   );T(T(su()));         r $/;r "H";$\
    =$/?$;:$,;$/=$,;z(1..12);$,=$\;$\
       =$/;$a=~s/(.)l//;p(q tcket.$1
        );&s(p($"));$e='Felicien';
              #MYFIRSTJAPH

[download]

In reply to First JAPH by Feland

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.