$s = "Hi Hey Man, I got the enlightenment HERE!";
$cnt = $s =~ s/H/M/g;
print "$cnt\n";