<?xml version="1.0" encoding="windows-1252"?>
<node id="22284" title="RE: Perl/Tk Chatterbox Client" created="2000-07-12 21:43:38" updated="2005-08-05 07:48:59">
<type id="11">
note</type>
<author id="5999">
ZZamboni</author>
<data>
<field name="doctext">
If you cut-and-paste from this page, you can use the following to remove the continuation "+" signs and reconstruct the file correctly:
&lt;code&gt;
perl -ne 'chomp; if (/^\+(.*)$/) { $last.=$1 } \
  else { print "$last\n"; $last=$_ } \
  END { print "$last\n" }' origfile.pl &gt; destfile.pl
&lt;/code&gt;
&lt;p&gt;--&lt;a href="/index.pl?node=ZZamboni&amp;lastnode_id=1072"&gt;ZZamboni&lt;/a&gt;
</field>
<field name="root_node">
22273</field>
<field name="parent_node">
22273</field>
</data>
</node>
