perl -ne "print qq/$. : $_\n/ if m/\bM[A-Z]{3}\b/" testfile.txt