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