for ( $content =~ /^(Server error:\n.*?)^server info/gsm ) {
    print if /Btree/;
}