my @records = <BIGFILE>;
my @london = grep /LONDON/, @records;
print LONDONFILE join "", @london;