$soundex{ $name } = soundex($1) 
    if $name =~ m[^(?:O'|Mac|Mc)([A-Z].*$)];