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


in reply to Perl/Tk Chatterbox Client

If you cut-and-paste from this page, you can use the following to remove the continuation "+" signs and reconstruct the file correctly:
perl -ne 'chomp; if (/^\+(.*)$/) { $last.=$1 } \ else { print "$last\n"; $last=$_ } \ END { print "$last\n" }' origfile.pl > destfile.pl

--ZZamboni