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