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