Help for this page

Select Code to Download


  1. or download this
    >perl -wMstrict -le
    "my $s =
    ...
    "
    'xx @ra[1] y @ara[23] z @ra[1] aa @ara[23] b @ra[1] @ara[23]'
    'xx @ra[2038] y @ara[6310] z @ra[2038] aa @ara[6310] b @ra[2038] @ara[
    +6310]'