my @parts = split /DOG/, $poem;