"MacAchallies",
"McAchallies",
"MacAchounich",
"McAchounich",
"MacAdam", 
"McAdam", 
"MacAdie", 
"McAdie", 
"MacAindra",
"McAindra" ...

##</code><code>##

if ( $mystring=~/^Mac\w/ )
{ 

print "\"",$mystring ,"\",\n";

};