my $aa=1,$bb=1,$cc=1,$dd=1;
my $method1 = '(($aa && $bb)) || ($cc && $dd)';
print "yeah\n" if eval $method1; die $@ if $@;