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