Select Code to Download

#!/usr/bin/perl

...
foreach (@arr) {
    print $_, "\n";
}

Abbr["Co."];
Abbr["Corp."];
...
Abbr["Mme."];
Abbr["Mrs."];
Abbr["Dr."];