Select Code to Download

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

#! perl -slw
use strict;
...
           O'Donnell : D540 : O354
             Donagal : D524 : D524
           O'Donagal : D524 : O352