(my $tmp = $s) =~ s/,/./; $s = $tmp if looks_like_numbers($tmp);