...as an alternative, use precision():

$ perl -Mbignum -le 'my $x = 12314212412124124124.10623; $x->precision
+(-2); print $x;'
12314212412124124124.11
[download]