Here it goes again:

$_ ="abc.def"; 
s/(.*?\.)/\U$1/; 
print;
[download]

output:

note: tr doesn't work well with international character sets - use \U or uc() instead.