silly benchmark of matching parens

bench_parens.pl

#!/usr/bin/perl

use strict;
use warnings;
use Benchmark qw(:all);

my $string = "foo (bar) and (baz) stuff)";
my $left = 0;
my $right = 0;

timethese(10_000_000, {
	'left' => sub {
		$left++ while $string =~ /\(/g;
	},
	'right' => sub {
		$right++ while $string =~ /\)/g;
	}
});

#print "left: $left, right: $right\n";

exit;
__END__