my @records = <BIGFILE>;

##</code><code>##

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