use Math::BigFloat;
use Data::Dump qw/ dd /;
my $bf = Math::BigFloat->new(q{6.66666666666666666666666666666666});
dd( $bf, $bf->bstr, $bf->bstr+0, "$bf"+0 );
__END__
(
  bless({
    _e   => [32],
    _es  => "-",
    _m   => [6666666, 6666666, 6666666, 6666666, 66666],
    sign => "+",
  }, "Math::BigFloat"),
  "6.66666666666666666666666666666666",
  6.66666666666667,
  6.66666666666667,
)