$foo = "<italic>Here's a <bold>larger<normal> paragraph, <italic>where I'm<norma
l> going to <bold>bold some <italic>";
print "\nfoo before:\n$foo\n\n";

#foo.gsub!(/(?<=<italic>)(?<!<normal>)(.*?)<bold>/, '\1<bold-italic>')
$foo =~ s/(?<=<italic>)(?<!<normal>)(.*?)<bold>/\1<bold-italic>/g;
print "foo after:\n$foo\n";

##</code><code>##

# Output is...
# <italic>Here's a <bold-italic>larger<normal> paragraph, <italic>where I'm<normal> going to <bold-italic>bold some <italic>

##</code><code>##

# However, should be...
# <italic>Here's a <bold-italic>larger<normal> paragraph, <italic>where I'm<normal> going to <bold>bold some <italic>