my $l = log(125) / log(5);

$l += 1;
$l -= 1;

print $l == int($l);