$const{mail_to} = $1 if $mail =~ m/To: (.*?)\n/s;