my $query = qq("SOME QUERY WITH "" (DOUBLE QUOTES)" YEEHA);

if ($query =~ /"(.*)"(.*)/) {
    my $inside = $1;
    my $outside = $2;

    print $inside, "\n", $outside, "\n";
}