Select Code to Download

  open (TEXTFILE, ">$subdir/message.txt")
     or die "Can't create $subdir message file: $!";
...
  $doc->{Body} =~ s/\015/\n/gm;
  print TEXTFILE $doc->{Body};
  close TEXTFILE;

  open (TEXTFILE, ">$subdir/message.txt")
     or die "Can't create $subdir message file: $!";
...
  $NewBody =~ s/\x0D\n/\n/g;
  print TEXTFILE $NewBody;
  close TEXTFILE;