use Lingua::EN::Sentence qw(get_sentences);
open FH, "SomeFile.txt" or die "can't open: $!\n";
{
  local $/;
  my $all=<FH>;
}
my $sentences=get_sentences($all);  ## Get the sentences.
[download]

Looking at your code, I don't think split will work like this (spliting an entire array in one). you will need to foreach through @all and split each element individualy or possibly play some fun and games with map.

my @all=<>;

print "all is:\n";
foreach (@all) {
    print "$_";
    foreach (split /([.,;])/, $_) {print "$_\n"}
}
[download]

From your later description I think you may want to look at splitting on something like [A..Z]\s*(\.|;) and as you are slurping in the entire file and not making use of the line breaks perhaps you want to try

local $/;
my $all=<>;
[download]

my $text;
{
    local $/ = undef;
    open my $fh, 'file_name' or die "Damn $!";
    $text = <$fh>;
}

$text =~ tr/\n/ /;

my @arr = split /(?<=[.,;])\s*(?=[A-Z])/, $text;

foreach (@arr) {
    print ':', $_, ":\n";
}
[download]

davidj

Thanks for the will to help. Look i open a file that contains text(e.g perlref.txt), and i want to make eventually an array, that every index of which will contain every line (accordingly) by the next rules :
1. every line shold start with a capital letter.
2. every line should end with "." or ";"
3. befor every line's begining there should be the character "." or ";" (let's even assume that before the first line there's a dot.)
"If you know the right question to ask, you already know the answer."

This will do it for you.

Sample text file:

C:\Temp>type t.txt
This is a test sentence. And this is another one; Also so is this.
And by the way, this is the fourth sentence.
[download]

Now the perl code:

#!/usr/bin/perl

use strict;
use warnings;

my $s;
my @arr;

open(FILE, "<t.txt");

while(<FILE>) {
  chomp $_;
  $s .= $_;
}

@arr = $s =~ m/[A-Z].+?[.;]/g;
foreach (@arr) {
    print $_, "\n";
}
[download]

Now the output:

C:\Temp>t.pl
This is a test sentence.
And this is another one;
Also so is this.
And by the way, this is the fourth sentence.
[download]

as you can see, each array position in @arr contains 1 sentence (as you have defined it).

hope this helps,

davidj