Regex vs. Split

use strict;
use warnings;
use Benchmark qw(cmpthese);

chomp( my @lines = <DATA> );

sub regExLines {
    my ( $yes, $no );

    for my $string (@lines) {
        next if $string !~ /^\*.+/ or $string =~ /Created/;
        if ( $string =~
            /^(?>\*\s+(\w\w\w-\d\d-\d\d\d\d)\s+(\w+)\s+(\d+)\s+)(?!Created)/ )
        {
            $yes++;
        }
        else {
            $no++;
        }
    }
}

sub splitLines {
    my ( $yes, $no );

    for my $string (@lines) {
        next if $string !~ /^\*.+/ or $string =~ /Created/;
        my ( undef, $date, $user, $change, $desc ) = split ' ', $string, 5;

        if ( $desc !~ /^Created/ ) {
            $yes++;
        }
        else {
            $no++;
        }
    }
}

cmpthese(
    -5,
    {
        regExLines => sub { regExLines() },
        splitLines => sub { splitLines() },
    }
);

#               Rate regExLines splitLines
#splitLines 356059/s         --        -6%
#regExLines 377659/s         6%         --

__DATA__
* JAN-01-2001   bugsbunny     1234     Created Module
  JAN-01-2001   bugsbunny     1234     Created Module
* DEC-12-2012   bugsbunny     5678     Modified Module
  DEC-12-2012   bugsbunny     5678     Modified Module