remember to use /g and use .+? instead of .+:

#!/usr/bin/perl -lw

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

Go and read more about regexp, click here!