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

for ( @a )
{
    print "$1\n" if /^Ma?c(.+)/
}