Select Code to Download

#! /usr/bin/perl -w
use strict;
use 5.018;
...
        say "\t NO MATCH ON $data_line \n";
    }
}

C:\>test_err_finder.pl
         FOUND IT: <tr><td bgcolor="#db4930">Result</td><td bgcolor="#
+db4930">Error: 404 Not Found</td></tr>

...

         NO MATCH ON <tr><td foo bar baz> abcde </td></tr>
C:\>

#!/usr/bin/perl -w
use strict;
use 5.018;
...
    print $/;
    say $_;
}