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

##</code><code>##

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