while (<$fhlog>)
{
    my $line = $_;
    my $bufferline;
    if ($line =~ /Finished (.*)\. Wrote (\d+) new, (\d+) duplicates, (\d+) archived/)
    {
        &storeAdapterDetails($1, $2, $3, $4, $fhresult);
        next;
    }
    if ($line =~ /ERROR/)
    {
        $bufferline = '$line';
        next;
    }
    if ($line =~ /.*Exception:/)
    {
        print "Found adapter: ".$bufferline; $flag = 1;
    }