#!/usr/bin/perl

use strict;
use warnings;

my $blah = "reagen OR siedl OR smith AND jack";

my (@names) = split(/\sAND\s|\sOR\s/, $blah);

print $_, "\n" foreach (@names);

exit;

##</code><code>##

@split_values = [ OR, OR, AND ];