my $xmlstr = join '',
q{<page foo="bar">\n},
q{<para id="thing1">para thing</para>\n} x 144632
q{</page>\n};