DB<10> $amount = 35784.45;

  DB<11> $amount =~ s/\.//;

  DB<12> print $amount;
3578445