#!/usr/bin/perl

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