use 5.14.1;
use strict;
use warnings;

use Benchmark qw/:all/;

my @strings;
my @chars = ("A".."Z", "a".."z", " ");

for ( 1..10000 ) {
	my $string;
	$string .= $chars[rand @chars] for 1..20;
	push(@strings, $string);
}

sub oneregexp {
	for my $string ( @strings ) {
		$string =~ s/(^\s+|\s+$)//g
	}
}

sub tworegexp {
	for my $string ( @strings ) {
		$string =~ s/^\s+//;
		$string =~ s/\s+$//;
	}
}


cmpthese (230, 
	{
		'oneregexp' => '&oneregexp',
		'tworegexp' => '&tworegexp',
	});