my $rep  = '$cTestH{$dbFile}{$timeRng}{$regionName}{';
my $bool = 'A&!B&!C';
   $bool =~ s/([a-zA-Z]\w*)/$rep$1}/g;

##</code><code>##

12:55 >perl 1560_SoPW.pl
Evaluating Test Condition: $cTestH{$dbFile}{$timeRng}{$regionName}{A}&!$cTestH{$dbFile}{$timeRng}{$regionName}{B}&!$cTestH{$dbFile}{$timeRng}{$regionName}{C}...

Result is: 1

12:55 >