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