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

print $logs[0];
print $logs[1];
#print @dates;