#! perl -wl
while(<>){
    last if /Select a City/;
}
while(<>){
    last if m,</select>,;
    next unless m,^	<option value="(.*)">(.*)</option>,;
    $c1=$1;$c2=$2;
    die unless $c1 eq $c2;
    for($c1){
        die "$_" unless /^[A-Z. ]*$/;  #N. ATTLEBORO
        print;
    }
}