C:\test>perl -le"sub Log{log(pop)/log(10)}print eval while<>;"
Log(100)
2
10**2
100
Log(30)+log(40)
5.1660007088336
10**(Log(30)+Log(40))
1200
exp(log(30)+log(40))
1200