$string =~ s!(</?)([^/>])!$1.uc($2)!eg;