#!C:perl/bin

my @names = qw "M Mac McA Mcccccc MacAchallies McAchallies MacAchounich McAchounich MacAdam McAdam MacAdie McAdie MacAindra";
 
for(@names){
   $_ =~ /(M.?c+.*)/ and print "$1\n";
}

=HEAD  output is:
Mac
McA
Mcccccc
MacAchallies
McAchallies
MacAchounich
McAchounich
MacAdam
McAdam
MacAdie
McAdie
MacAindra

=cut