Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
my $texttosub = 'log10(blackcat)*whitecat*(log10(orangeCat))';
$texttosub =~ s/\b(?!log10)([a-zA-Z][A-Za-z_0-9]+)\b/$cats{lc $1}/ige;
print "$texttosub\n";

Select or download this
```
log10(5)*10*(log10(20))
```