data1
data2
data3
data4
data5

##</code><code>##

"601-4001", "Disaster, Recovery"
"601-4066", "Dial, "
"601-4080", "Business, Line, "
"601-4101", "Eric, Forward"
"601-4102", "Jimmy,  FWD"
"601-4261", "Scott, "
"601-4262", "Cecelia, "
"601-4263", "Frederick, "
"601-4269", "Rick, "
"601-4270", "KENNETH, "
"601-4272", "Sandra, "
"601-4273", "800, redirect"
"601-4274", "Suzanne, "

##</code><code>##

 open(PBXFILE, "c:\/gabi\/global_address.txt") || die "cannot open: $!";
while (<PBXFILE>) {
	chomp;
	{s/"//g
    }
    {s/,//g
    }
}

# Create a blacklist of numbers that do not map to a person
   @blacklistA = qw(
        601-4001 Disaster Recovery
        601-4066 Dial 
	601-4080 Business Line 
	601-4101 Eric  Forward
	601-4102 Jimmy  FWD
        601-4273 800 redirect
    );