Help for this page

Select Code to Download


  1. or download this
    my $Data = "Sentence One. Sentence Two. Sentence Three. Sentence Four.
+ Sentence Five.";

@array=split(/\.$/,$Data);
print "\n";
print "$_.\n" foreach @array;
  2. or download this
     Sentence One. Sentence Two. Sentence Three. Sentence Four. Sentence F
+ive.
  3. or download this
     Sentence One.
 Sentence Two.
 Sentence Three.
 Sentence Four.
 Sentence Five.
  4. or download this
    #! /usr/bin/perl -T

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

exit 0;
  5. or download this
     Sentence One. Sentence Two.
 Sentence Three. Sentence Four.
 Sentence Five.