Unless most of the lines match what you're looking for, you'll also save a lot of time by first filtering out the lines that don't contain what you're looking for. e.g. If you're using Unix:
my $log = '/var/log/httpd-access.log';
open my $fh, "/usr/bin/egrep 'corp.home.ge.com|scotland.gcf.home.ge.co
+m' $log |") or die "egrep failed on $log: $!";
while ( <$fh> ) { ... }
close ($fh);