my $count =()= 'abrabrabrabra' =~ /brabra/g;
print "Found $count instances\n"
# prints Found 2 instances (not 3)