#!/usr/bin/perl -w

use strict;
use Benchmark qw(cmpthese);

my $i=0;

my $varshort = "xxx:12345 yyy:54321 zzz:13245";

my $varlong = ("$varshort "x120);

sub greedy {
    $_[0]=~m/.+\:(.+?)\s.+\:(.+?)\s.+\:(.+?)/;
}

sub notGreedy {
    $_[0]=~m/.+\:(.+?)\s.+?\:(.+?)\s.+?\:(.+?)/;
}

sub greedyShort {
    greedy($varshort);
}

sub greedyLong {
    greedy($varlong);
}

sub notGreedyShort {
    notGreedy($varshort);
}

sub notGreedyLong {
    notGreedy($varlong);
}

cmpthese(-3,
        {
            greedyShort   => \&greedyShort,
            greedyLong => \&greedyLong,
            notGreedyShort => \&notGreedyShort,
            notGreedyLong => \&notGreedyLong,
        }
     );