DB<4> $d1 = "1230.1200";
 
  DB<5> $d1 = $d1 + 0; 
 
  DB<6> print $d1."00"
1230.1200