#! perl -nlw
next unless m!<coordinates>(.*),(.*),(.*)</coordinates>!;
#print if $1> (-71.6);
print if $1< (-71.5);