This is easier to type:
perl -pe 'chomp;s/^\+//||s/^/\n/;END{print"\n"}' # Unix perl -pe "chomp;s/^\+//||s/^/\n/;END{print qq.\n.}" # Win32
And you can drop the END{...} part if you just append an extra blank line to the input or don't mind the missing final newline on the output.
In reply to RE: RE: Perl/Tk Chatterbox Client
by tye
in thread Perl/Tk Chatterbox Client
by Shendal
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |