use strict;
use warnings;
use Benchmark qw(cmpthese);
use List::Util qw(max);

cmpthese_times (cmpthese (-1, {
        split => sub {split '', 'whoop whoop pull up'},
        regex => sub {'whoop whoop pull up' =~ /([^\s]*)/g}
    },
    'none'
    ));