$name =~ s/</&lt\;/gi;
   $name =~ s/://gi;
   $name =~ s/TO//gi;
   $name =~ s/FROM//gi;
   $name =~ s/SUBJECT//gi;