$count=0; while($_=~/(M+)/g) { $count++; } print $count."\n"; #### $_='iiiiiiiiMMMMMMMMMMMooooooooooooMMMMMMMMMMiiiiiMMMMMMMMoooo';