Help for this page
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//;
www.com | www.net | www.org
No recent polls found