my $pat = join '|', map quotemeta, keys(%subs);
s/\b($pat)\b/$subs{$1}/g;