#!/usr/bin/perl
use strict;
use warnings;

my $log = 'log';

@ARGV == 2 or die "usage: $0 TAB_1 TAB_5\n";
my ( $TAB_1, $TAB_5 ) = @ARGV;

open my $HAN, '<', $log or die "Cannot open '$log' because: $!";

while ( <$HAN> ) {
    next unless /^8=/;
    print
        "[+] FOUND $TAB_1 and $TAB_5 in\n",
        "-----------------------\n",
        $_
            if / 1=\Q$TAB_1\E / && / 5=\Q$TAB_5\E /;
    }