Select Code to Download

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