$amount =~ s/\.//;