while (<errorlog>)
{
    $logins{$1}++ if /Login succeeded\. User: ([^,]+)/;
}
print map { "$_: $logins{$_}\n" } sort keys %logins;
[download]

Outputs usernames and number of logins:

abc: 1
qwr: 1
sa: 6
xyz: 1
[download]