A script to find US places with the name of a state in them

gistfile1.pl

#!/usr/bin/perl -w

use 5.0100;
use strict;
use warnings;

# Read in the list of US states attached to the end of this source file.
my %US_STATES = ();

while(<DATA>) {
    chomp;
    
    if(/^END OF STATE NAMES$/) {
        last;
    } elsif(/^(.*):(\w+)$/) {
        my $name = lc $1;
        my $code = uc $2;

        # Correct the capitalization of state names.
        $name =~ s/([\w']+)/\u\L$1/g;

        $US_STATES{$code} = $name;
    } else {
        die "Could not read line '$_'!";
    }
}
my @state_names = values %US_STATES;

# Let the user known we're ready to go.
say STDERR scalar(@state_names) . " states loaded.";

# 'places2k.txt' obtained from http://www.census.gov/geo/www/gazetteer/places2k.html
open(PLACES, "<places2k.txt") or die "Could not open 'places2k.txt': $!";

while(<PLACES>) {
    chomp;

    my $state =     substr($_, 0, 2);
    my $name =      substr($_, 9, 64);

    $state =~       s/(^\s*|\s*)$//g;
    $name =~        s/(^\s*|\s*)$//g;

    my $fullstate = $US_STATES{$state}; 

    # Check for place names containing the name of a state.
    foreach my $state_name (@state_names) {
        if(index(lc $name, lc $state_name) != -1) {
            say "$name, $fullstate ($state_name)";
        }
    }
}

close(PLACES);

# List of states obtained from https://www.usps.com/send/official-abbreviations.htm
# (but really downloaded from Google's cache of https://www.usps.com/ncsc/lookups/abbr_state.txt)
__DATA__
ALABAMA:AL
ALASKA:AK
AMERICAN SAMOA:AS
ARIZONA:AZ
ARKANSAS:AR
CALIFORNIA:CA
COLORADO:CO
CONNECTICUT:CT
DELAWARE:DE
DISTRICT OF COLUMBIA:DC
FEDERATED STATES OF MICRONESIA:FM
FLORIDA:FL
GEORGIA:GA
GUAM:GU
HAWAII:HI
IDAHO:ID
ILLINOIS:IL
INDIANA:IN
IOWA:IA
KANSAS:KS
KENTUCKY:KY
LOUISIANA:LA
MAINE:ME
MARSHALL ISLANDS:MH
MARYLAND:MD
MASSACHUSETTS:MA
MICHIGAN:MI
MINNESOTA:MN
MISSISSIPPI:MS
MISSOURI:MO
MONTANA:MT
NEBRASKA:NE
NEVADA:NV
NEW HAMPSHIRE:NH
NEW JERSEY:NJ
NEW MEXICO:NM
NEW YORK:NY
NORTH CAROLINA:NC
NORTH DAKOTA:ND
NORTHERN MARIANA ISLANDS:MP
OHIO:OH
OKLAHOMA:OK
OREGON:OR
PALAU:PW
PENNSYLVANIA:PA
PUERTO RICO:PR
RHODE ISLAND:RI
SOUTH CAROLINA:SC
SOUTH DAKOTA:SD
TENNESSEE:TN
TEXAS:TX
UTAH:UT
VERMONT:VT
VIRGIN ISLANDS:VI
VIRGINIA:VA
WASHINGTON:WA
WEST VIRGINIA:WV
WISCONSIN:WI
WYOMING:WY
Armed Forces Africa:AE
Armed Forces Americas:AA
Armed Forces Canada:AE
Armed Forces Europe:AE
Armed Forces Middle East:AE
Armed Forces Pacific:AP
END OF STATE NAMES

The results I obtained on Sep 10, 2011.

Georgiana town, Alabama (Georgia)
Kansas town, Alabama (Kansas)
Unalaska city, Alaska (Alaska)
Arizona City CDP, Arizona (Arizona)
Arizona Village CDP, Arizona (Arizona)
Colorado City town, Arizona (Colorado)
Arkansas City city, Arkansas (Kansas)
Arkansas City city, Arkansas (Arkansas)
Washington city, Arkansas (Washington)
California City city, California (California)
Hawaiian Gardens city, California (Hawaii)
Nevada City city, California (Nevada)
Colorado City CDP, Colorado (Colorado)
Colorado Springs city, Colorado (Colorado)
Idaho Springs city, Colorado (Idaho)
Kiowa town, Colorado (Iowa)
North Washington CDP, Colorado (Washington)
Delaware City city, Delaware (Delaware)
Wyoming town, Delaware (Wyoming)
Washington city, District Of Columbia (Washington)
Florida City city, Florida (Florida)
Florida Ridge CDP, Florida (Florida)
Virginia Gardens village, Florida (Virginia)
Washington Park CDP, Florida (Washington)
Washington city, Georgia (Washington)
Hawaiian Acres CDP, Hawaii (Hawaii)
Hawaiian Beaches CDP, Hawaii (Hawaii)
Hawaiian Ocean View CDP, Hawaii (Hawaii)
Hawaiian Paradise Park CDP, Hawaii (Hawaii)
Idaho City city, Idaho (Idaho)
Idaho Falls city, Idaho (Idaho)
Kansas village, Illinois (Kansas)
Mascoutah city, Illinois (Utah)
Ohio village, Illinois (Ohio)
Oregon city, Illinois (Oregon)
Tennessee village, Illinois (Tennessee)
Vermont village, Illinois (Vermont)
Virginia city, Illinois (Virginia)
Washington city, Illinois (Washington)
Washington Park village, Illinois (Washington)
Wyoming city, Illinois (Wyoming)
Indianapolis city (balance), Indiana (Indiana)
Michigan City city, Indiana (Michigan)
Michigantown town, Indiana (Michigan)
New Washington CDP, Indiana (Washington)
Washington city, Indiana (Washington)
Delaware city, Iowa (Delaware)
Iowa City city, Iowa (Iowa)
Iowa Falls city, Iowa (Iowa)
Missouri Valley city, Iowa (Missouri)
Nevada city, Iowa (Nevada)
New Virginia city, Iowa (Virginia)
North Washington city, Iowa (Washington)
Washington city, Iowa (Washington)
Wyoming city, Iowa (Wyoming)
Arkansas City city, Kansas (Kansas)
Arkansas City city, Kansas (Arkansas)
Kansas City city, Kansas (Kansas)
Kiowa city, Kansas (Iowa)
Washington city, Kansas (Washington)
California city, Kentucky (California)
Mount Washington city, Kentucky (Washington)
Iowa town, Louisiana (Iowa)
Washington town, Louisiana (Washington)
California CDP, Maryland (California)
Fort Washington CDP, Maryland (Washington)
Maryland City CDP, Maryland (Maryland)
Washington Grove town, Maryland (Washington)
Lake Michigan Beach CDP, Michigan (Michigan)
Michigan Center CDP, Michigan (Michigan)
Vermontville village, Michigan (Vermont)
Wyoming city, Michigan (Wyoming)
Minnesota City city, Minnesota (Minnesota)
Minnesota Lake city, Minnesota (Minnesota)
New York Mills city, Minnesota (New York)
Virginia city, Minnesota (Virginia)
Wyoming city, Minnesota (Wyoming)
California city, Missouri (California)
Florida village, Missouri (Florida)
Kansas City city, Missouri (Kansas)
Louisiana city, Missouri (Louisiana)
Maryland Heights city, Missouri (Maryland)
Missouri City city, Missouri (Missouri)
Nevada city, Missouri (Nevada)
North Kansas City city, Missouri (Kansas)
Oregon city, Missouri (Oregon)
Washington city, Missouri (Washington)
Montana City CDP, Montana (Montana)
Virginia City town, Montana (Virginia)
Nebraska City city, Nebraska (Nebraska)
Ohiowa village, Nebraska (Ohio)
Ohiowa village, Nebraska (Iowa)
Virginia village, Nebraska (Virginia)
Washington village, Nebraska (Washington)
Washington borough, New Jersey (Washington)
Washington Township CDP, New Jersey (Washington)
West New York town, New Jersey (New York)
Florida village, New York (Florida)
New York city, New York (New York)
New York Mills village, New York (New York)
Port Washington CDP, New York (Washington)
Port Washington North village, New York (Washington)
Washington Heights CDP, New York (Washington)
Washingtonville village, New York (Washington)
Wyoming village, New York (Wyoming)
Washington city, North Carolina (Washington)
Washington Park town, North Carolina (Washington)
Michigan City city, North Dakota (Michigan)
Delaware city, Ohio (Delaware)
Florida village, Ohio (Florida)
Maineville village, Ohio (Maine)
Nevada village, Ohio (Nevada)
New Washington village, Ohio (Washington)
Ohio City village, Ohio (Ohio)
Old Washington village, Ohio (Washington)
Oregon city, Ohio (Oregon)
Port Washington village, Ohio (Washington)
Washington city, Ohio (Washington)
Washingtonville village, Ohio (Washington)
Wyoming city, Ohio (Wyoming)
Delaware town, Oklahoma (Delaware)
Kansas town, Oklahoma (Kansas)
Kiowa town, Oklahoma (Iowa)
Oklahoma City city, Oklahoma (Oklahoma)
Washington town, Oklahoma (Washington)
Oregon City city, Oregon (Oregon)
California borough, Pennsylvania (California)
Delaware Water Gap borough, Pennsylvania (Delaware)
East Washington borough, Pennsylvania (Washington)
Fort Washington CDP, Pennsylvania (Washington)
Indiana borough, Pennsylvania (Indiana)
New Washington borough, Pennsylvania (Washington)
Ohiopyle borough, Pennsylvania (Ohio)
Ohioville borough, Pennsylvania (Ohio)
Oklahoma borough, Pennsylvania (Oklahoma)
Washington city, Pennsylvania (Washington)
Washingtonville borough, Pennsylvania (Washington)
West Wyoming borough, Pennsylvania (Wyoming)
Wyoming borough, Pennsylvania (Wyoming)
Tennessee Ridge town, Tennessee (Tennessee)
Arroyo Colorado Estates CDP, Texas (Colorado)
Colorado City city, Texas (Colorado)
Iowa Colony village, Texas (Iowa)
Iowa Park city, Texas (Iowa)
Lake Kiowa CDP, Texas (Iowa)
Missouri City city, Texas (Missouri)
Nevada city, Texas (Nevada)
Onalaska city, Texas (Alaska)
Texas City city, Texas (Texas)
Washington city, Utah (Washington)
Washington Terrace city, Utah (Washington)
Virginia Beach city, Virginia (Virginia)
Washington town, Virginia (Washington)
Washington CDP, West Virginia (Washington)
Lake Wisconsin CDP, Wisconsin (Wisconsin)
Onalaska city, Wisconsin (Alaska)
Oregon village, Wisconsin (Oregon)
Port Washington city, Wisconsin (Washington)
Wisconsin Dells city, Wisconsin (Wisconsin)
Wisconsin Rapids city, Wisconsin (Wisconsin)
Florida zona urbana, Puerto Rico (Florida)