http://www.perlmonks.org?node_id=852539


in reply to Change decimal point temporarily

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