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