my $linenum2=1;
open FORMATLOG, "<$outputfile" or die "Cannot open $outputfile $!\n";
open (REPORT, ">$badreport") or die "Cannot open $badreport $!\n";
my @line =<FORMATLOG>;

print "lines that matched $flag1\n;";
for (@line) {
	if ($_=~ m/failed for user (.*?),/) {
		print REPORT $linenum2++; 
		print REPORT " :$1xx\n";
		} 
	}
close FORMATLOG;
close REPORT;