$str =~ s/<\Q$abbr\E[^>]*>/<$abbr­>/g;