my $num = $string =~ s/XX/XX/g;

##</code><code>##

print $string =~ s/XX/XX/g;