my $count =()= 'abracadabra' =~ /br/g;
print "Found $count instances\n"
# prints Found 2 instances