use v5.10;
my $count = 0;
my $var   = "foo <> foo <> foo";
$var =~ s ( fo{2} ) {
	++$count;
}gex;
say $var;