#! perl -w use strict; use 5.018; my $start = qr{}; my $errmsg = qr{Result)}; while () { /$errmsg/ && say if /$start/ .. /$end/; } __DATA__

Error:.*?(?=

Result

Error: 404 Not Found

Result

Error: SSLError: [Errno 1] _ssl.c:504: error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed

abcde

ResultError: 404 Not Found