in reply to How to use long strings...
my %count; $count {$1} ++ while $content =~ /\Q$left_string\E(.*)\Q$right_str +ing\E/g; [download]
I haven't tested it though.
Abigail