Perl: Count occurrences of substring
I needed a quick way to count the number of times a substring appears in a larger string.
$count = @{[$haystack =~ /$needle/g]};
Updated: This is a more clear solution:
my $count = scalar(split(/$needle/,$haystack)) - 1;
Lots of good options found in the comments though.