DB<1> $d1 = '1230.1200';
  
  DB<2> print $d1
1230.1200
  DB<3> print $d1+0
1230.12
  DB<4> $d1=$d1+0
  
  DB<5> print $d1
1230.12