Help for this page

Select Code to Download


  1. or download this
    $ perl -MO=Concise -we'@r = reverse @r'
    c  <@> leave[1 ref] vKP/REFC ->(end)
    ...
    9           <0> pushmark s ->a
    a           <0> padav[@r:1,2] lRM* ->b
    -e syntax OK