$myfile =~ s/([A-Z]+)/\$1\<\/i\>/g;