my $var = "21,234.23"; 
$var =~ tr/.,/,./; 
print $var