cmpthese(-1,{
	'=()=' => 	sub { my $m = 0; $m = () = $target =~ m/ab/g; },
	'while' => 	sub { my $m = 0; $m ++ while $target =~ m/ab/g; },
	'(?{})' => 	sub { my $m = 0; $target =~ m/ab(?{ $m ++ })(*F)/g; },
	'split_by' => sub { my $m = 0; 
		$m = -1 + split 'ab', 'x' . $target . 'x'; 
		},
	'chomp' => 	sub { my $m = 0; 
		my $target2 = $target;
		local $/ = 'ab';
		0 while chomp $target2 and ++ $m or chop $target2;
		},
	'index' => 	sub { my $m = 0; 
		my $pat_len = length 'ab';
		my $pos = -$pat_len;
		$m ++ while -1 < ( $pos = index $target, 'ab', $pos + $pat_len );
		},
	'rindex' => 	sub { my $m = 0; 
		my $pat_len = length 'ab';
		my $pos = -1 + length $target;
		$m ++ while -1 < ( $pos = rindex $target, 'ab', $pos - $pat_len );
		},
});