print FILE $ParsedTitle[$i] =~ s/\n/ /g;

$wordCt = $ParsedTitle[$i] =~ s/((^|\s)\S)/$1/g;

my @words = $string =~ m/\b\w+\b/g; 
my $count = @words; 

 
        @words = $ParsedTitle[$i] =~ m/\b\w+\b/g; 
        $wordCt = @words; 
        print FILE $wordCt;

use strict; 
use warnings; 
my @ParsedTitle; 
my $i = 0; 
$ParsedTitle[$i] = 
     "This is a sentence.\n" 
    ."Here is the rest of the paragraph.\n"; 
my @words = $ParsedTitle[$i] =~ m/\b\w+\b/g; 
my $count = @words;  
print $count;

        $firstWord = $ParsedTitle[$i] =~ /^(.*?)\s/; 
        print FILE $firstWord;

        $firstWord = $ParsedTitle[$i] =~ /\b\w+\b/;

my $i; 
my $posPID = 1; 
my $firstWord; 
my @words; 
my $wordCt; 
my $lineCt; 
 
for($i = 0; $i < scalar(@ParsedTitle); $i++){ 
        print FILE $posPID; 
        print FILE ","; 
        @words = $ParsedTitle[$i] =~ m/^(.*?)\s/; 
        $firstWord = $words[0]; 
        print FILE $firstWord; 
        print FILE ","; 
        @words = $ParsedTitle[$i] =~ m/\b\w+\b/g; 
        $wordCt = @words; 
        print FILE $wordCt; 
        print FILE ",\""; 
        $lineCt = $ParsedTitle[$i] =~ s/\n/ /g; 
        print FILE $ParsedTitle[$i]; 
        print FILE "\"\n"; 
        $posPID++; 
}

        @words = $ParsedTitle[$i] =~ m/^(.*?)\s/; 
        $firstWord = $words[0]; 
        print FILE $firstWord;

#!/usr/bin/perl 
use strict; 
use warnings; 
use 5.014; 
 
 
my $posPID = 1;  
my $lineCt; 
my @ParsedTitle = ("Here are some words\nalong with 2\n embedded newlines\n"); 
  
for(my $i = 0; $i < @ParsedTitle; $i++){ 
    my ($firstWord) = $ParsedTitle[$i] =~ m/(\S+)/;  
    print $firstWord;  
    print ",";  
    my $wordCt = () = $ParsedTitle[$i] =~ m/\b\w+\b/g;  
    print $wordCt;  
    print ",\"";  
    $lineCt = $ParsedTitle[$i] =~ s/\n/ /g;  
    print $ParsedTitle[$i];  
    print "\"\n";  
    $posPID++;  
}

 #!/usr/bin/perl  
use warnings;  
use strict;  
  
my $bookTitle = "anna.book";  
my $out_file  = "anna.csv";  
  
open BOOK, "<", $bookTitle or die "Could not open $bookTitle!. $!";  
open FILE, ">", $out_file or die "Could not open $out_file for writing. $!";  
my $posID = 1;  
  
{  
    local $/ = "";  
    while (<BOOK>) {  
        chomp;  
        my ($first_word) = /(\w+)/;  
        my $word_count = () = /\w+/g;  
        my $line_count = s/\n/ /g || 0;  
        print FILE join(",", $posID++, $first_word, $word_count, $line_count, "\"$_\""), "\n";  
    }     
}  
  
close BOOK or die "Could not close $bookTitle. $!";  
close FILE or die "Could not close $out_file. $!";

#!/usr/bin/perl 
use warnings; 
use strict; 
 
my $bookTitle = "anna.book"; 
my $outFile = "anna.csv"; 
 
open BOOK, "<", $bookTitle or die "Could not open file: $bookTitle!. $!"; 
open FILE, ">", $outFile or die("Could not open file: $outFile. $!"); 
 
my $pID = 1; 
 
local $/ = ""; 
while (<BOOK>){ 
        chomp; 
        my ($firstWord) = /(\w+)/; 
        my $wordCt = () = /\w+/g; 
        my $lineCt = s/\n/ /g || 0; 
        $lineCt++; 
        print FILE join(",", $pID++, $firstWord, $wordCt, $lineCt, "\"$_\""), "$ 
} 
 
close BOOK or die "Could not close $bookTitle. $!"; 
close FILE or die "Could not close $outFile. $!";

while (<BOOK>){ 
       chomp;  
       next if /^\W+$/; # check for embedded spaces or non word items 
      .....

my ($firstWord) = /(\w+)/;

next if /^\W+$/;

   #!/usr/bin/perl    
use warnings;    
use strict;    
  
my $bookTitle = "anna.book";    
my $out_file  = "anna.csv";    
  
open BOOK, "<", $bookTitle or die "Could not open $bookTitle!. $!";    
open FILE, ">", $out_file or die "Could not open $out_file for writing. $!";    
my $posID = 1;    
  
{    
    local $/ = "";    
    while (<BOOK>) {    
        chomp;    
        my ($first_word) = /(\w+)/ or next;    
        my $word_count = () = /\w+/g;    
        my $line_count = 1 + s/\n/ /g;    
        s/"/""/g; # escape embedded quotes    
        print FILE join(",",    
            $posID++, $first_word, $word_count, $line_count, "\"$_\""), "\n";    
    }       
}    
  
close BOOK or die "Could not close $bookTitle. $!";    
close FILE or die "Could not close $out_file. $!";

   #!/usr/bin/perl    
use strict;    
use warnings;    
use Text::CSV_XS;    
  
open my $fh, "<", 'anna.csv' or die $!;    
  
# there is an à, so need binary to parse.    
# Without binary turned on, this program quit running when    
# it encountered the à (somewhere in the middle).    
my $csv = Text::CSV_XS->new({binary => 1});    
  
while (my $row = $csv->getline ($fh)) {    
    #if (5 != @$row) {    
    #   die "bad csv: number of fields not = 5. $!";        
    #}    
    print join("\t", @$row), "\n";    
}    
  
close $fh or die $!;

 #!/usr/bin/perl  
use strict;  
use warnings;  
use DBI;  
  
my $dbh = DBI->connect(qq{DBI:CSV:});  
$dbh->{'csv_tables'}->{'books'} = { 'file' => 'anna.csv',  
        'col_names' => [qw/posID first_word word_count line_count paragraph/]};  
  
my $sth = $dbh->prepare(qq{  
                SELECT posID, word_count, paragraph  
                FROM books  
                WHERE word_count < 12  
                ORDER BY word_count DESC  
                });  
  
$sth->execute() or die "Cannot execute: " . $sth->errstr();  
while(my @row = $sth->fetchrow_array) {  
    print "@row\n";  
}  
$sth->finish();  
$dbh->disconnect();

 783 9 Kitty perceived that Anna knew what answer would follow.  
34 8 "Darya Alexandrovna?" Matvey repeated, as though in doubt.  
112 8 "Dolly, one word more," he said, following her.  
281 8 "I'll put them on directly," he said.  
354 8 "Oh, yes, Parmesan.  Or would you like another?"  
390 8 "I think it's possible.  Why not possible?"  
417 8 "No, I don't.  Why do you ask?"  
437 8 Stepan Arkadyevitch's eyes sparkled more than usual.  
506 8 The Countess Nordston pounced upon Levin at once.  
542 8 "Oh, then you don't believe in it?"  
578 8 "Why, you've..." The prince was crying wrathfully.  
644 8 "You got my telegram?  Quite well?  Thank God."  
649 8 "Well, well, allow me to kiss your hand."  
652 8 Vronsky understood now that this was Madame Karenina.  
702 8 "It's an omen of evil," she said.  
709 8 And Stepan Arkadyevitch began to tell his story.  
718 8 "Dolly, how glad I am to see you!"  
781 8 "How can _you_ be dull at a ball?"  
787 8 "Are you coming to this ball?" asked Kitty.  
791 8 "I imagine you at the ball in lilac."  
30 7 "Alone, or with her husband?" inquired Matvey.  
39 7 "Eh, Matvey?" he said, shaking his head.  
65 7 "Mamma?  She is up," answered the girl.  
114 7 And she went out, slamming the door.  
136 7 And the sitting of the board began.  
142 7 "To be sure we shall!" said Nikitin.  
166 7 Stepan Arkadyevitch gave a scarcely perceptible smile.