Select Code to Download

$ perl -Mstrict -Mwarnings -E '
    my $x = q{1|2|3|||6|7||||};
...
'
1|2|3| | |6|7| | | |
1|2|3| | |6|7| | | |

$ perl -Mstrict -Mwarnings -E '
    use Benchmark qw{cmpthese};
...
                    Rate while_no_repeat     just_repeat
while_no_repeat 158479/s              --            -21%
just_repeat     201613/s             27%              --