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