#! perl -w use strict; use 5.018; my $start = qr{}; my $errmsg = qr{Result)}; while () { /$errmsg/ && say if /$start/ .. /$end/; } __DATA__
Error:.*?(?=
ResultError: 404 Not Found
ResultError: SSLError: [Errno 1] _ssl.c:504: error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed
abcde
ResultError: 404 Not Found #### 13:55 >perl 1458_SoPW.pl ResultError: 404 Not Found ResultError: SSLError: [Errno 1] _ssl.c:504: error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed 13:55 >