If there may be multiple occurrences of DOG, you want:

($before, $match, $after) = split /(DOG)/, $poem, 2;
[download]

or $after will only include up to the second DOG.