Help for this page
"MacAchallies", "McAchallies", ... "McAdie", "MacAindra", "McAindra" ...
if ( $mystring=~/^Mac\w/ ) { ... print "\"",$mystring ,"\",\n"; };