Help for this page

Select Code to Download

Select or download this

    my $r = join "[|]" => ("([^|]*)") x 31;
    while (/^$r\n/mg) { ... }