Well, if your number is small enough that Perl thinks the number is 0, multiplying it with 100, or whatever number you choose, will not do you any good:

    $ perl -wle 'print log (10**-4950)'
    -11397.7067720196325
    $ perl -wle 'print log (10**-4951)'
    Can't take log of 0 at -e line 1.
    $ perl -wle 'print log (10**-4951 * 100)'
    Can't take log of 0 at -e line 1.
[download]

Abigail