use 5.014;

say 'iiiiiiiiMMMMMMMMMMMooooooooooooMMMMMMMMMMiiiiiMMMMMMMMoooo' 
      =~ tr/M/~/sr=~tr/~//;   # => prints: 3