#! perl -nlw
die $_ unless m!, (.*), MA \d+</desc!;
$city=$1;
for $lcity ("boston","cambridge","somerville","medford","brookline","allston","charlestown","south boston","east boston"){
    print if $city eq (uc$lcity);
}
    
