use Number::Format; my $uuooop = new Number::Format; print $uuooop->format_number("1234567890.0123456789",2);