my $variables = join "|", map { "\\b$_\\b" } reverse sort keys %cats;
$variables = qr/$variables/;

$texttosub =~ s|($variables)|$cats{ $1 }|g;

# now there are no more variables, so we can evaluate the thing