Help for this page

Select Code to Download

Select or download this

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