while ( my $line = <BIGFILE> ) {
   /LONDON/ ? print LONDONFILE $line,"\n" : 
              print OTHERFILE  $line,"\n";
}