ah! In that case,

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

You'd be better of specifying which columns are numeric, though. Text::CSV_XS can even take advantage of that information if you tell it (via types).