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