use strict;
use warnings;
use Benchmark qw/cmpthese/;

my $string = '1:13:1:6:5854:0x00E37F06:0x00D1314C';

sub _split {
	my $result = join( ':', ( split /:/, $string )[ 0 .. 2 ] );
}

sub _split_LIMIT {
	my $result = join( ':', ( split /:/, $string, 4 )[ 0 .. 2 ] );
}

cmpthese(
	-5,
	{
		_split       => sub { _split() },
		_split_LIMIT => sub { _split_LIMIT() }
	}
);