$myfile =~ s/([A-Z]+)/\<i\>$1\<\/i\>/g; [download]
In reply to Quick question about pattern matching uppercase letters by cranberry13