my @a =
(
    "MacAchallies",
    "McAchallies",
    "MacAchounich",
    "McAchounich",
    "MacAdam",
    "McAdam",
    "MacAdie",
    "McAdie",
    "MacAindra",
);

print grep { s/^ma?c(.+)/$1\n/i } @a;
[download]