0-02-01 単純なHTMLエスケープ Perl $a =~ s/&/&/g; $a =~ s/</</g; $a =~ s/>/>/g; $a =~ s/"/"/g; $a =~ s/'/'/g;