Select Code to Download

  #$name =~ s/^(The|A|An) //i;
   $name =~ s/^(?:The|An?) //i;  # no capturing
...
                ? join('.',@abbr) . '.' 
                : join('', @abbr);

use strict;
use warnings;
...
            )
          . ($ON{HTML}  ? qq{</abbr>} : "")
}

   /(The|A|An)/;

   /((?:The|A|An))/;