elsif (/User (.*) rejected \((\S+)\)/) {

if (!$user) {
$user = 'NULL';
}
$user = $1;
$reject = $2;
$stats{$host}{$service}{'attempts'}++;
$stats{$host}{$service}{$reject}++;

if ($reject eq 'ReasonNotGiven') {
$stats{$host}{$service}{'ReasonNotGiven'}++;
}

if ($user =~ /^hooreg\@\.net$/i) {
if ($host =~ /anhmca|irvnca|lsanca|pltnca|snfcca|sntcca/) {
$regid{'sbcy'}{'rejects'}{'west'}++;
}
elsif ($host =~ /hstntx|kscymo|rcsntx/) {
$regid{'sbcy'}{'rejects'}{'central'}++;
}
elsif ($host =~ /chcgil|ipltin|klmzmi|milwwi|sfldmi|wotnoh/) {
$regid{'sbcy'}{'rejects'}{'north'}++;
}
elsif ($host =~ /mrdnct/) {
$regid{'sbcy'}{'rejects'}{'northeast'}++;
}
else {
$regid{'sbcy'}{'rejects'}{'unknown'}++;
}
}
elsif ($user =~ /^dslreguser\@\S+$|^dslreguser$/i) {
if ($host =~ /anhmca|irvnca|lsanca|pltnca|snfcca|sntcca/) {
$regid{'legacy'}{'rejects'}{'west'}++;
}
elsif ($host =~ /hstntx|kscymo|rcsntx/) {
$regid{'legacy'}{'rejects'}{'central'}++;
}
elsif ($host =~ /chcgil|ipltin|klmzmi|milwwi|sfldmi|wotnoh/) {
$regid{'legacy'}{'rejects'}{'north'}++;
}
elsif ($host =~ /mrdnct/) {
$regid{'legacy'}{'rejects'}{'northeast'}++;
}
else {
$regid{'legacy'}{'rejects'}{'unknown'}++;
}
}
}
elsif (/Named Authentication Service|Could not identify Authorization Service/) {
next;
}
else {
print MSG "Protocol -> $_\n";
}
}