if($line =~ /Auth\s+failed.*/) { $ErrorMsg=$1; printf "Failure,"; while ( $line = <$log> ) { if ($line =~ /ArAuthFrameworkImpl::doPostAuth.*Authentication\s*mechanism\s*returned\s*\[(\d+)\]/) { printf FP_OUT "${1}, $ErrorMsg\n"; return; } } }