Help for this page

Select Code to Download


  1. or download this
    c:\@Work\Perl\monks>perl -wMstrict -le
    "my ($kilo, $papa, $quebec, $romeo, $delta) = ('a' .. 'z')[ 10, 15 .. 
    +17, 3 ];
     print qq{'$delta' '$kilo' '$papa' '$quebec' '$romeo'};
    "
    'd' 'k' 'p' 'q' 'r'