open (FILE, '<', '123.log') or die "Could not open 123.log: $!";
while (<FILE>) {

   #print $_ if (/^[==========]/ .. /^tests.../);
   if (/^[==========]/ .. /^tests.../){
        print "Line Found:".$_."\n";
   }
}
close (FILE) or die "Could not close 123.log: $!";