Help for this page

Select Code to Download

Select or download this

use 5.014;

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