my  $re;
    $re = qr/\((?:(?>[^()]*)|(??{$re}))*\)/;
    s/($re)|\$a/$1?$1:'$b'/eg;