#!/usr/bin/perl -w

use Benchmark 'timethese';
use strict;

print "split: ", use_split(), "\n";
print "regex: ", use_regex(), "\n";

sub use_split {
	$_ = "  one two three    four five six";
	split;		# See Jouke's post (this may be faster). This is deprecated though.
	return $_[3];
}

sub use_regex {
	$_ = "  one two three    four five six";
	s/^\s+//;
	m/^(?:[^\s]+\s+){3}([^\s]+)/;
	return $1;
}

timethese(-10, {        regex => \&use_regex,
                        split => \&use_split });
timethese(-50, {        regex => \&use_regex,
                        split => \&use_split });
timethese(-100, {       regex => \&use_regex,
                        split => \&use_split });