Proving TIMTOWTDI, and stiring the pot some more, how about this one? I used the same data as corion so they can be easily compared.

$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 te
+ll it what to do on it's day off. This was your day.::: More foo.
[download]

This gives:

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.

A little more sophistication and you could quite easily edit how the data s read

$japh->{'Caillte'} = $me;