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
In Section
Code Catacombs