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];