#!/usr/bin/perl
use 5.016;
use warnings;

#1061936

my $str = q!AND (random text) AND (more random text) AND (yet more)!;
my $str2 = q!OR (random text) OR (more random text) OR (yet more)!;

while ( $str =~ /(AND )(\(.*\))?( AND|$)/ig ) {
    say $2;
}
while ( $str2 =~ /(OR )(\(.*\))?( OR|$)/ig ) {
    say "Rowing: $2";
}   

=head

C:\>D:\1061936.pl
(random text) AND (more random text) AND (yet more)
Rowing: (random text) OR (more random text) OR (yet more)

=cut