htmlタグのオプションを削除する(Perl)

$str =~ s/<([a-zA-Z]*)\s[^>]*/<$1/ig;