Select Code to Download

$text = "The dog is black cat is white and the fox does not like the c
+ow or pig";
$text =~ s/(dog|cow|cat|pig)/\n$1/g;
print $text;