$string = "<<a> a> a <a>\n"; 
{ $string=~s/<([^<]*)>/\U$1/g and redo; }
print $string;