It's probably easiest to just do it in the Perl script, e.g.<br><br>#!perl -l<br>print '<flashlist>';<br>while (<>) {<br>    print '<listitem><flashtext>', $_, '</flashtext></listitem>';
<br>}<br>print '</flashlist>';<br><br>or, if you want the placeholders,<br><br>#!perl -l<br>
print '<${1:flashlist}>';<br>
while (<>) {<br>
    print '<${2:listitem}><${3:flashtext}>', $_, '</$3></$2>';<br>
}<br>
print '</$1>';<br>
<br><br>Robin