my $string = "This and that";
print "$_\n" for split /\s+and\s+/, $string;
__OUTPUT__
This
that

##</code><code>##

my $string = "This and that";
print "$_\n" for split /\s+(and)\s+/, $string;
__OUTPUT__
This
and
that

##</code><code>##

my $string = "This and that";
print "$_\n" for split /(?=\s+and\s+)/, $string;
__OUTPUT__
This
 and that

##</code><code>##

my $string = "This and that and those too";
print "$_\n" for split /(?=\s+and\s+)/, $string;
__OUTPUT__
This
 and that
 and those too