[Drunken Perl Coder]

my $message = "$subject \n";
if (!$edition)
{
$edition = "";
$message .= $edition;
}
else
{
$message .= "$edition \n";
}
$message .= "$time \n\n";
 
if ((!$inr1) && (!$inrm1))
{
$inr1 = "";
$inrm1 = "";
$message .= $inr1;
$message .= $inrm1;
}
else
{
$message .= "$inr1\n";
$message .= "$inrm1\n\n";
}
if ((!$fwd1) && (!$fwdm1))
{
$fwd1 = "";
$fwd1 = "";
$message .= $fwd1;
$message .= $fwdm1;
}
else
{
$message .= "$fwd1\n";
$message .= "$fwdm1\n\n\n";
}
if ((!$strategy1) && (!$strategym1))
{
$strategy1 = "";
$strategym1 = "";
$message .= $strategy1;
$message .= $strategym1;
}
else
{
$message .= "$strategy1\n";
$message .= "$strategym1\n\n";
}
if ((!$eurrs1) && (!$eurrsm1))
{
$eurrs1 = "";
$eurrsm1 = "";
$message .= $eurrs1;
$message .= $eurrsm1;
}
else
{
$message .= "$eurrsmail2\n\n";
$message .= "$eurrsmmail2\n\n\n";
}
 
$message .= "$dis\n\n"; 
$message .= "\n"; 

now use $message where ever you need to with your new code.