# substitute 
$var =~  s/,/./;