Select Code to Download

$ perl -wE 'printf "%.20f\n", log(125)/log(5)'
3.00000000000000044409

use strict;
use warnings;
...
}

say is_power_of(125, 5);