while ( /(simple_match)/ ) {
	$count++ if length($1) >= 6;
}