Replacing for with while would save memory at no cost.

Update: Oops, not quite true. It would involve copying $1 into some other variable, so it might lose speed.

while ( $content =~ /^(Server error:\n.*?)^server info/gsm ) {
    my $record = $1;
    print $record if $record =~ /Btree/;
}
[download]