my $s = q[dogs OR cats AND "flying fish" OR (shrimp AND squid)];

##</code><code>##

my $s = q[dogs OR cats OR "flying fish" OR (shrimp AND squid)];

##</code><code>##

my $s = q[OR dogs OR cats OR "flying fish" OR (shrimp AND squid)];

##</code><code>##

$VAR1 = [
  "OR",
  [ term   => "dogs"        ],
  [ term   => "cats"        ],
  [ phrase => "flying fish" ],
  [
    "AND",
    [ term => "shrimp" ],
    [ term => "squid"  ],
  ]
];