my $substring = 'xxx';
my $parent = 'xxx yyy xxx zzz';
my @count = split($substring,$parent);
my $total = $#count + 1;
print "there are $total $substring in $parent\n";   # XXX 3