Perl - jak policzyć ilość zdań

[kwgr]

Skryp ma liczyć zdania.
Liczy te wjednej linijce.
Ma liczyć również te wielolinijkowe.
Jak to dopisać.




#!/usr/bin/perl -w


# W zadanym pliku tekstowym obliczyc srednia dlugosc zdania
# liczona w wierszach.
#
#

open(FILE, $ARGV[0]) or die("Brak pliku!");
$plik = $ARGV[0];
$licznik=0;
$srednia=0;
$suma=0;
while($linia = readline(FILE)) {
   @wyraz = split(".", $linia);
   $licznik++;
   $suma+=$#wyraz;
}
close(FILE);

$srednia=$suma/$licznik;

print "srednia dlugosc to: ";
print $srednia;
print "\\n"