#!/usr/bin/perl -w
use strict;

my $string ='ab23cdefgXX(3A5)XXhijkl23mnXX(3)XXopq432rsXX(450b)XXtuv';
my $num = (my @matches) = ($string =~ m/xx/ig);
print $num;
__END__
prints 6