# transliterate
$var =~  tr/,/./;