strawberry-perl-5.16.3.1-64bit-portable @ 46.90/s
strawberry-perl-5.18.4.1-64bit-portable @ 45.66/s
strawberry-perl-5.20.3.3-64bit-portable @ 42.60/s
strawberry-perl-5.22.3.1-64bit-portable @ 45.56/s
strawberry-perl-5.26.3.1-64bit-portable @ 52.31/s
strawberry-perl-5.28.2.1-64bit-portable @ 50.53/s
strawberry-perl-5.30.2.1-64bit-portable @ 49.05/s
strawberry-perl-5.32.1.1-64bit-PDL @ 47.72/s
strawberry-perl-5.38.0.1-64bit-PDL @ 43.94/s
strawberry-perl-5.40.0.1-64bit-PDL @ 41.68/s
FWIW, I benchmarked the solutions + my own, then feeling guilty of still sitting with 5.32, re-ran under 5.40, got ~25% speed drop; though it's less (above is a collage of dir/b + script output) for simplified test below. Isn't it too much?
use strict;
use warnings;
use Benchmark 'timethis';
my $s = do { local $/; <DATA> };
$s x= 10_000;
timethis -5, sub { my @a = split /^(?=>>> )/m, $s; return }, $^V;
__DATA__
>>> prd1701
Filesystem Size Used Avail Use% Moun
+ted on
/workspace 3.9T 887G 3.0T 13% /wor
+kspace/data
>>> prd1702
Filesystem Size Used Avail Use% Moun
+ted on
/workspace 3.9T 746G 3.1T 23% /wor
+kspace/data
>>> prd1703
Filesystem Size Used Avail Use% Moun
+ted on
/workspace 3.9T 687G 3.2T 18% /wor
+kspace/data
