$line =~ s/<([^=]+)=([^>]+)>/<$1=\U$2>/g;