my @names = qw "MacAchallies McAchallies MacAchounich McAchounich MacAdam McAdam MacAdie McAdie MacAindra";

for(@names){
   $_ =~ /M.?c*/ and print $'."\n";
}