¤Á¤Ê¤ß¤Ë¤¦¤Á¤À¤È¤À¤¤¤¿¤¤¤³¤ó¤Ê´¶¤¸¡££²¹ÔÌܤ¬ {3,} ¤Ë¤Ê¤Æ¤¤¤ë¤Î¤ÏÀ©¸æ¥³¡¼¥É¤Ã¤Ý¤¤ÅÛ¤ò½³¤ë¤¿¤á¤Ç¤¹¤¬¡¢Â礶¤Ã¤Ñ¤Ë½ñ¤¤¤Æ¤ë¤Î¤ÇÈóÀ©¸æ¥³¡¼¥É¤Êʸ»ú¤Þ¤Ç½³¤êÅݤ·¤Æ¤¤¤Þ¤¹¡£
¤Á¤Ê¤ß¤Ë£³¹ÔÌܤÏËÜÅö¤ËɬÍפʤΤ«¤É¤¦¤«¤ï¤«¤ê¤Þ¤»¤ó¡Ê¤©¤£
$text =~ s/&/&\;/g;
$text =~ s/&\;(#\d{3,}\;)/&$1/ig;
$text =~ s/&(#0*127;)/&\;$1/g;
$text =~ s/</<\;/g;
$text =~ s/>/>\;/g;
$text =~ s/\"/"\;/g;
¼ÂºÝ¤Î¥³¡¼¥É¤Ï lib/base.pl ¤Î EscapeChrRef ¤Ç¸«¤é¤ì¤ë¤Ç¤¹¤è¡£