$frsmt =~ tr[.][]d; # eliminate all dots from the number
$frsmt =~ tr[,][.]d; # turn all commas into dots

##</code><code>##

$frsmt =~ tr[,.][.]d; # eliminate all dots from the number and turn all commas into dots