my $var  = '5,10';
$var =~ tr/,/./;
print $var;