#!/usr/bin/perl -lw

use strict;
my $x="<tag1> balhblahblahblah <tag2> asdfasdfasdfasd <tag3>";
   $x=~s/<(.+?)>/<\U$1\E>/g;
   print $x;