use Scalar::Util qw( looks_like_number );

my $s = 123.45;
$s =~ s/\./,/ if looks_like_number($s);