#! /usr/bin/perl -w
use strict;
use 5.018;

# test errmsg match

# sample (and partial; see the chunking in the next code) errmsgs from file:  
# Result</td><td bgcolor="#db4930">Error: 404....</td> ( or 301 etc.)
# Result</td><td bgcolor="#db4930">Error: SSLError: [Errno 1] _ssl.c:504:....</td>

my $errmsg = qr[Result</td><td bgcolor=".{7}">Error:.*?(?=</td>)];

my @data_sample = (
    '<tr><td bgcolor="#db4930">Result</td><td bgcolor="#db4930">Error: 404 Not Found</td></tr>',
    '<tr><td bgcolor="#db4930">Result</td><td bgcolor="#db4930">Error: SSLError: [Errno 1] _ssl.c:504: error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed</td></tr>',
    '<tr><td foo bar baz> abcde </td></tr>'
                 );

my $data_line;
for $data_line(@data_sample) {
	if ( $data_line =~ /$errmsg/ ) {
		say "\t FOUND IT: $data_line \n";
    } else {
		say "\t NO MATCH ON $data_line \n";
    }
}