my $s = 123.45;
$s =~ s/\./,/;