#!/usr/bin/perl

use strict;

my $string = 'ab23cdefgXX(3A5)XXhijkl23mnXX(3)XXopq432rsXX(450b)XXtuv';
my @counts = split( "XX", $string );

print $#counts;