#!/usr/bin/perl $x="<tag1> balhblahblahblah <tag2> asdfasdfasdfasd <tag3>"; $x=~s/<(.+)>/<\U$1\E>/; print $x; [download]
In reply to problem with a regexp by Anonymous Monk