if(  $_ =~ / to=([^,]+), /  ) {
    $to_addr = $1;
} else {
    warn "Unmatched to= in line: $_";
}