Select Code to Download

open FH, "mylog" etc....
while (<FH>)
{
    do these steps
}

$to_addr = ($_ =~ rest of stuff);