my $searchstring = 'LONDON';
my @records = grep /$searchstring/, <BIGFILE>;