単純なHTMLエスケープ

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