#! perl -w
($target=$ARGV[0])=~s/\+/ /g;
while(<STDIN>){
    die $_ unless m!, (.*), MA \d+</desc!;
    $city=$1;
    print if $city eq $target;
}
