s/.* to=([^,]+), .*/$1/ && do { $to_addr = $_ };