s!
  (</?)      # Match and capture '<' followed by optional '/'
  ([^/>])    # Match and capture the next char, as long as
             # it's not a '>' or '/'.
 !
  $1         # Replace with '<' or '</'.
  . uc($2)   # Concatenate with the uc of $2.
!egx