use Math::BigFloat;;

$n = Math::BigFloat->new( '3.1415926535897932384626433832795' );;

$d = 0 + $n->bstr;;

printf "%.17f\n", $d;;
printf "%a\n", $d;;

$bfd = Math::BigFloat->new( sprintf "%.17f", $d );;
print $bfd;;

$n -= $bfd;;
print $n;;
printf "%a\n", $n;;