#!/usr/bin/perl

use strict;
use warnings;

use Benchmark 'cmpthese';
use Test::More tests => 2;

our @data = qw 'foo123 abdbdr23 abcd2 abc 1234 foo!123';
our (@plain, @sticky);

my @expected = ([qw 'foo 123'], [qw 'abdbdr 23'], [qw 'abcd 2'],
                ['abc', ''], ['', 1234], []);

cmpthese -1, {
    plain   => '@plain  = map {[/^([a-z]*)(\d*)$/]} @data',
    sticky  => '@sticky = map {[/^(\w*?)(\d*)$/]} @data',
};

is_deeply \@plain, \@expected;
is_deeply \@sticky, \@expected;

__END__
1..2
          Rate sticky  plain
sticky 32582/s     --   -17%
plain  39385/s    21%     --
ok 1
ok 2