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