http://qs1969.pair.com?node_id=24301


in reply to RE: Perl/Tk Chatterbox Client
in thread Perl/Tk Chatterbox Client

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.