>perl -wMstrict -le
"my $str ='ab2cgXX(A5)XXhl3mnXX(3)XXo42rsXX(4b)XXv_xx';
 my $reps =()= $str =~ m{ XX }xmsg;
 print $reps;
"
6