my $Data = "Sentence One. Sentence Two. Sentence Three. Sentence Four. Sentence Five.";

@array=split(/\.$/,$Data);
print "\n";
print "$_.\n" foreach @array;

##</code><code>##

 Sentence One. Sentence Two. Sentence Three. Sentence Four. Sentence Five.

##</code><code>##

 Sentence One.
 Sentence Two.
 Sentence Three.
 Sentence Four.
 Sentence Five.

##</code><code>##

#! /usr/bin/perl -T

use strict;
use warnings;

my $Data = " Sentence One. Sentence Two. Sentence Three. Sentence Four. Sentence Five";

#my @array=split(/\./,$Data); 
my @array = split /\./, $Data; 

print "\n";
print "$_.\n" foreach @array;

#my $count = scalar int(@array/2);
my $count = int @array/2;

my @joinarray;

for (1..$count){
my $tmp = shift @array; 
   $tmp .= ".".shift @array;
push @joinarray, $tmp ;
}

#if (@array){my $tmp2 = shift @array; push @joinarray, $tmp2};
push @joinarray, shift @array if @array;

print "\n";
print "$_.\n" foreach @joinarray; 

exit 0;

##</code><code>##

 Sentence One. Sentence Two.
 Sentence Three. Sentence Four.
 Sentence Five.