END {
    print " \n" } sub I { $_ } sub II { -shift } sub III {
    chr shift } sub IV { $_[ 0 ] + $_[ 1 ] } sub V { IV( 0
    ,1 ) } sub VI { IV( V , II( V ) ) } sub VII { IV( V ,V
    )} sub VIII { IV( V, II( shift ) ) } sub IX { $_[ VI ]
    **VII } sub X { IX( VII ) } sub XI { IV( VII, V )} sub
    XII { IX( IX( XI ) ) } sub XIII { IV( X, V ) } sub XIV
    { IV( IX( X ) , II( XI ) ) } sub XV { ( XIV, @_ ) }sub
    XVI { $_[ VI ] ** XI }sub XVII { IX( XVI( VII ) )} sub
    XVIII { IV( XVI( VII ) , II( V ) ) } sub XIX { IV( XVI
    ( VII ), VII ) } sub XX { $_[ VI ] * $_[ V ] } my $XVI
    = IV( XX( VII , XVIII ) , II( XIV ) ); for( ( IV( XVII
    , IX( XI ) ) , IV( IX( XVIII ) , VIII( XVIII ) ) , II(
    VII ), V , II( IV( XVII, XX( VII , XIX ) ) ) , XX( XIV
    ,XIII ) ,XV( V ,XIII , VIII( XIV ) , II( XI ) , ) , XV
    ( II( IV( V ,XII ) ), XX( XI ,IX( X ) ) ,XX( XI, XVIII
    ) , ) , XV( VIII( XVIII ) , IV( XIII , II( XII )) , XX
    ( X , XX( VII , IX( XI ) ) ) , II( XVIII ) , VII , XVI
    ( VII ) , IV( VII , XVI( II( VII ) ) ) ,) , XV( II( IV
    ( XIII, XX( XIII, XIV )))))) { $XVI += I and print III
    $XVI
}

[download]

Programming X Windows is like trying to find the square root of pi using roman numerals. -- Jamie Zawinski

- another intruder with the mooring in the heart of the Perl

In reply to The Decline and Fall of the Roman Empire by grinder

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.