my $string = "abcabcacbabc"; my @num_times = split(/abc/, "$string "); print scalar @num_times -1, "\n";