...
 my ($in_out) = @_;
 my ($out,$diver,$grade) = split(/,/, $in_out, 3);
 my $in = Math::BigInt->new(($out)**(1/$grade)*$diver);
...
##</code><code>##

10990761002367800000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000

##</code><code>##

10990761002372220870980990761002372220870980980980990761002372220
87098099076100237222087098099076100237222087098098098099076100237
22208709809907610023722208709809907610023722208709809809809907610
0237222087098099076100237222087098