$s = 'abc.def'; 
$s =~ s[(?<=[.])[^.]*$][xyz]; 
print $s;;
abc.xyz