package munge_address;
sub munge_address {
    my $address=shift;
    for($address){
        s/^ONE /1 /;
        s/^TEN /10 /;
        s/^UNIT 3, //;
        s/^SPANGLER CENTER, //;
        s/,.*//;  #suite etc confuses the geocoder
        s/ ?- .*//;
        s, / .*,,;
        s/ \(.*//;
        s/ &.*// unless /CENTRAL STS/;
        s/ CROSSROADS PLAZA.*//;
        s/  .*//;
        s/ROGERS ST RT 38/ROGERS ST/;
        s/MOHAWK TRAIL RTE 2/MOHAWK TRAIL/;
        s/MAIN ST RT 131/MAIN ST/;
        s/BARNSTABLE RD AIRPORT/BARNSTABLE RD/;
        s/GRAPEVINE RD BENNETT/GRAPEVINE RD/;
        s/UNIVERSITY DRIVE NEWMARKET SQUARE/UNIVERSITY DRIVE/;
        s/NEW CONGRESS ST ENTRANCE/1 CITY HALL AVE/;
        s/RTE 58 MAIN STREET/RTE 58/;
    }
    $address;
}
1;