use strict;
use warnings;

my $ArcotIDError_Count = 0;

OUTER:
while(my $line = <>) {
    $line =~ tr/\r\n//d;
    next if $line !~ /Handling NSPAdvice for mechanism \[4\]/;

    do {
        $line = <>;
        last OUTER if !defined($line);
    } while $line !~ /Authentication mechanism returned \[(\d+)\]/;

    my $errorCode = $1;
    #print("\$errorCode=$errorCode\n");
    if ($errorCode != 0 && $errorCode != 1) {
        $ArcotIDError_Count++;
    }
}

print "Total Number Of ArcotID Authentication ErrorCode returned is $ArcotIDError_Count\n";