if ($line =~ /Login succeeded. User: (\w+)/i) {
		my $user = $1;
		push @users, $user unless grep (/$user/i, @users);
	}