Help for this page

Select Code to Download


  1. or download this
    sub match {
        my @h;
    ...
        -- $h [ord] < 0 and return for split // => shift;
        1;
    }