$data = <DATA>;
(@array) = split /:::/, $data;
print join "\n", @array;


__DATA__
Some foo:::This is a some text. Today you watered the dog and ::test: bathed the plants. The server asked you what permission you had to tell it what to do on it's day off. This was your day.::: More foo.