open(BF, $tsv_data) or die("It ain't there ($tsv_data): $!\n");
@res = map { "$_\n" if /LONDON/ } split(/\n/, <BF>);
close(BF);