use strict;
use Time::HiRes 'time';

sub main {
	my $TimesToDo = 1000;
	my $TestString ="abababdedfg" x 1000;
	
	my $Count = $TimesToDo;
	my $StartTime = time();
	while ($Count-- > 0) {
		$TestString =~m/^(a|b|c|d|e|f|g)+$/;
	}
	my $EndTime = time();
	printf("Alternation takes %.3f seconds.\n", $EndTime - $StartTime);
	
	$Count = $TimesToDo;
	$StartTime = time();
	while ($Count-- > 0) {
		$TestString =~m/^[a-g]+$/;
	}
	$EndTime = time();
	printf("Character class %.3f seconds.\n", $EndTime - $StartTime);

}
unless (caller) {main ()}