use strict;
my $str = 'I am a sentence. I am another sentence. Another random sentence to add to the mix. Once again I find myself writing a sentence. I hope this weekend is sunny in Brisbane. The quick brown fox jumps over the lazy dog. The cat crept into the crypt, crapped and crept out again. There are never enough hours in a day. Streaming GeorgeFM from Auckland via the bose soundtouch app is the beez kneez. For good measure, I thought I would write another sentence.
';
my $regex = qr/(.*?)\. (.*?)\. (.*?)\./mp;
my $subst = '\\1. \\2. \\3.\\r\\n\\r\\n';
my $result = $str =~ s/$regex/$subst/rg;
print "The result of the substitution is' $result\n";
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html