my @parts = split /DOG/, $poem; #### my ($before, $after) = split /DOG/, $poem, 2;