push @re, "$first\\s*$last(?{$acct})",
                   "$last,?\\s+$first(?{$acct})"
            if !$re{"$first$last"}++;

         $first=substr($origfirst,0,1);
         push @re2, "\\b$last,?\\s+$first(?{$acct})"
            if !exists($hExclude->{lc $origlast})
            && length($last)>=4;
            && !$re2{"$first$last"}++