Select Code to Download

while(<>){    
    if ($_=~"Sent:"){
...

print @dates;
print @list[1];

while(<>){    
    if (/^[0-9]+, |Sent:/){
...

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