Select Code to Download

  my $re = qr/
    (?:      # start non-capturing group
...
    ){5}     # and ensure there are 5 such groups in a row
    ([^\|]+) # capture as many non-pipe chars as possible
  /x;

           Rate oldway newway
oldway 108225/s     --   -81%
newway 563910/s   421%     --