HTMLの特殊文字をエスケープ

って、これでいいの？？
もっと考慮すべきことがあるのかなぁ・・・

sub convert_char {
    my $arg = shift;
    $arg =~ s/&/&amp;/g;
    $arg =~ s/ /&nbsp;/g;
    $arg =~ s/\"/&quot;/g;
    $arg =~ s/</&lt;/g;
    $arg =~ s/>/&gt;/g;
    return $arg;
}