sub OptInMailContent
{
   if(open(OptInMail, "<$OptInMailFile"))
   {
      my @optinmail = <OptInMail>;
      close(OptInMail);
      
      my $optinmailT = join("", @optinmail);
      $optinmailT =~ s!(\$\w+)!$i!ge;
      
      print MAIL $optinmailT;
   }
}