my $count = 0;
++$count while ( $parent =~ /$substring/go );