ないですかね。 sub tune_html { my ($str) = @_; $str =~ s/&/&amp;/g; $str =~ s/</&lt;/g; $str =~ s/>/&gt;/g; $str =~ s/\"/&quot;/g; $str =~ s/\'/&#39;/g; return $str; }追記： TODO tokuhiromさんにText::Xslateを進められたので試してみる。

http://ha.ckers.org/xss.htmlサブドメイン使えば、結構希望のドメインはつくれそうだな。とこのサイトみて思った。