my ($success, $failure) = part { /^ERR/ } <LOG>;