$text =~ s/\b(dog|cat|fox|cow|pig)\b/\n$1/g;