$ perl
use bignum;
$number=330978816.3082480433473810957254665863937;
$number=(int(((log($number)/log(10))*10)+0.5))/10;
print"$number\n";
__END__
NaN

$ perldoc -V
Perldoc v3.15_02, under perl v5.012002 for MSWin32