Select Code to Download

  LINE:
    while (my $line = <$INFILE> ) {
...
        #
        $text .= $line . $NEWLINE;
    }

next LINE if length $line == 1 and q{\} eq substr $line, 0, 1;

s/(?<=\n)\s+//;
#or, line by line:
s/\A\s+//

s/\s+\n//;

Readonly my $ESC_BACKSLASH => q{\\};
Readonly my $NEWLINE => q{\n};
$wholefile =~ s/$ESC_BACKSLASH\z//o;

Readonly my $RTF_CMD => qr/$ESC_BACKSLASH [\w-]+/xo;
s/$RTF_CMD//;