Select Code to Download

$texttosub =~ s/(?!log10)|([a-zA-Z][A-Za-z_0-9]+)/$cats{$1}/i

use warnings;
use strict;
...
Matched 'log10', replacement 'log10'
Matched 'orangecat', replacement '20'
log10(5)*10*(log10(20))