Gražina EXPR natūrinį algoritmą (pagrindu e). Jei EXPR praleistas, gražina $_ log. Gauti kitokio pagrindo algoritmą, naudokitės elementariąja algebra: N pagrindo logaritmas yra skaičius, lygus natūraliajam to skaičiaus logaritumui, padalintam iš natūralaus N skaičiaus algoritmo. Pvz.:

    sub log10 {
my $n = shift;
return log($n)/log(10);
 }

Žr. exp atvirkščiai operacijai.