DB<123> $x="1,234,567.99"
 => "1,234,567.99"

  DB<124> $x =~ s/,//g
 => 2

  DB<125> sprintf('%.2f', $x);
 => "1234567.99"