my ( $code, $msg ) = ( split, ':', $_)[2,3];
$msgs{$code}{$msg}++;