while(<>){	
	if ($_=~"Sent:"){
		$count += 1;
		push (@dates, $_);
			}
	if ($count < 1){
	if ($_=~"Per Domain Breakdown"){
		until ($_=~"From:"){push (@list, $_);}
		push (@list, "BREAK $count");
		}
	}
}

print @dates;
print @list[1];

##</code><code>##

while(<>){	
	if (/^[0-9]+, |Sent:/){
		push (@logs, $_);
	}
}

print $logs[0];
print $logs[1];