in reply to Capturing occurrence counts via tr/// with variable interpolation
$ans = () = $str =~ m/$SrchStr/g; [download]