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