while( my $line = <$log> ) { $Success_ArcotID_Count++ if ($line =~ /ArcotID\s*Auth\s*SUCCESS.*/); $Failure_ArcotID_Count++ if ($line =~ /Auth failed.*/); $Success_QnA_Count++ if ($line =~ /QNA Auth - Success.*/); $Failure_QnA_Count++ if ($line =~ /Message: QNA Auth Failed.*/); $Success_OTP_Count++ if ($line =~ /OTP SUCCESS.*/); $Failure_OTP_Count++ if ($line =~ /Message: OTP FAILED.*/); $Success_UP_Count++ if ($line =~ /UPAuth SUCCESS.*/); $Failure_UP_Count++ if ($line =~ /UPAuth FAILED.*/); }