$a =~ s/&/&amp;/g; $a =~ s/</&lt;/g; $a =~ s/>/&gt;/g; $a =~ s/"/&quot;/g; $a =~ s/'/&#39;/g;

open (IN," while(){ print; } close (IN);

<xsl:text> </xsl:text>

document.write('<a href="mai' + 'lto:&#119;&#10' + '1;&#98;&#109;&#97;&#115;&#116;&#101;&#114;&#64;&#107;&#111;&#119;&#97;&#103;&#97;&#114;&#105;&#46;&#110;&#101;&#116;">&#119;&#10' + '1;&#98;&#109;&#97;&#115;&#116;&#101;&#114;&#64;&#107;&#111;&#119;&#97;&#103;&#97;&#114;&#105;&#46;&#110;&#101;&#116…</a>