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