Select Code to Download

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

s!
  (</?)      # Match and capture '<' followed by optional '/'
...
  $1         # Replace with '<' or '</'.
  . uc($2)   # Concatenate with the uc of $2.
!egx