$s = "123.45"; $s =~ s/(?<=\d)\.(?=\d)/,/;