Select Code to Download

Select or download this

        Four  => sub { $testlarge =~ /([^\s]*)\s+/; my $y = $1; },
        Eight => sub { my $y = $testlarge =~ /(\S+)/; },
        Six   => sub { my ($y) =  split(/\s+/, $testlarge,2)    },
        Seven => sub { my ($y) =  split(/\s+/, $testlarge)      }

Select or download this

     Eight: 11 wallclock secs ( 4.68 usr +  5.46 sys = 10.14 CPU) @ 45
+0.69/s (n=4570)
      Four: 10 wallclock secs ( 4.79 usr +  5.21 sys = 10.00 CPU) @ 44
+9.60/s (n=4496)
     Seven: 10 wallclock secs ( 7.28 usr +  2.84 sys = 10.12 CPU) @ 29
+3.97/s (n=2975)
       Six: 10 wallclock secs ( 7.13 usr +  2.88 sys = 10.01 CPU) @ 29
+3.81/s (n=2941)

Select or download this

     Eight: 12 wallclock secs (10.00 usr +  0.00 sys = 10.00 CPU) @ 13
+0970.90/s (n=1309709)
      Four: 11 wallclock secs (10.39 usr +  0.00 sys = 10.39 CPU) @ 88
+839.36/s (n=923041)
     Seven: 10 wallclock secs (10.49 usr +  0.00 sys = 10.49 CPU) @ 12
+2499.33/s (n=1285018)
       Six: 10 wallclock secs (10.54 usr +  0.00 sys = 10.54 CPU) @ 12
+1918.22/s (n=1285018)