How To Count Strings Inside Another In Perl

Author: erics, Posted June 16th, 2021 at 12:19:06pm

my $needle = 'foo';
my $haystack = 'foo foo foo';
my @count = $haystack =~ /$needle/g;
my $count = scalar @count;
print "$count\n";

my $needle = 'foo';

my $haystack = 'foo foo foo';

my @count = $haystack =~ /$needle/g;

my $count = scalar @count;

print "$count\n";

Should result in 3

All fields marked with "*" are required.