my $paragraph =  
    qq~    Now is the time for all good men to come to the 
    aid of their country.  The quick brown fox jumped 
    over the lazy dog.  A bird in the hand is worth two 
    in the bush.  A stitch in time saves nine.~; 
  
 
my $count = 0; 
  
$count = $paragraph =~ s/\w+(?=\.)/$&/gm; 
  
print "$count\n\n$paragraph"; 

 while (<FILE>) { 
 
    while (/(\w['\w-]*)/g)  
    { $freq{lc $1}++; 
      $count[0]++; } 
 
    $count[2]++ if (/\n$/); 
  
 } 
 
## $count[1] = (<FILE>) =~ s/\w+(?=\.)/$&/gm; 
$count[2]++;			# algorithm is off by one

  my $paragraph = q~ Who. Nine... What? How now?! "She." (She). No... Seven... Eight... ~;   
  
 my $count = 0;  
  
 $ac = '(?:\w\.){2,}'; #acronyms 
 $endpunc = '[!?]+(?:[\'\"]{0,2})'; 
 $other = '[^\w\s]'; 
 $wword = '(?:(?:(?:$other+\w+)|(?:\w+$other+))?)'; expand($wword);  
 $words = '(?:\w+|$wword)?(\w+)?|(?:$ac)'; expand($words); 
 $sent = '(?:^|\W+)(?:(?:$words)(?:\s+)?)+(?:$endpunc)'; expand($sent); 
 sub expand ($) { $_[0] =~ s/\$(\w+)/${$1}/g; }  
 $count = $paragraph =~ s/$sent/$&/g;  
  
 print $count;

  /\W+(?:(?:(?:\w+|(?:[^\w\s]+\w+(?:[^\w\s]+)?))?(\w+)?|(?:(?:\w\.){2,}))(?:\s+)?)+(?:[!?]+[\'\"]{0,2})/

#!/usr/bin/perl -w 
use strict; 
 
my $WORD = q{ 
I have to laugh when I think  
of the first cigar, because 
it was probably just a bunch 
of rolled-up tobacco leaves.  
 
If you work on a lobster boat, 
sneaking up behind people and 
pinching them is probably a 
joke that gets old real fast.  
 
                 -- Jack Handey 
}; 
 
 
my @MATCHES = split m{ 
                        ( [\.\?\!]+) # sentance ending 
             #          (?! \.\.\.)  # except ... 
                       # don't ask why, just a demo 
                   }xsg # g means global, x means XXX ;) 
                   , $WORD; 
 
$.=0; 
 
for(@MATCHES) { 
    ++$.; 
    if( $. % 2 ) { 
        print "\n[sentence]\n"; 
        print $_; 
 
        my @WORDS =  split m{ 
                        \s+ # space one or more times 
                        |   # or 
                        \b  # word boundary 
                    }sgx, $_; 
 
##  use Data::Dumper;die Dumper \@WORDS; 
## eliminate empties, uncommend prev line to see 
        @WORDS = grep $_, @WORDS; 
 
        print "\n\t[word]\t$_\t[/word]\n" for @WORDS; 
 
        print "\n[/sentence]\n" 
    } else { 
        print "\n[mark]\n$_\n[/mark]\n"; 
    } 
} 
 
__END__ 
# which outputs 
 
 
[sentence] 
 
I have to laugh when I think  
of the first cigar, because 
it was probably just a bunch 
of rolled-up tobacco leaves 
	[word]	I	[/word] 
 
	[word]	have	[/word] 
 
	[word]	to	[/word] 
 
	[word]	laugh	[/word] 
 
	[word]	when	[/word] 
 
	[word]	I	[/word] 
 
	[word]	think	[/word] 
 
	[word]	of	[/word] 
 
	[word]	the	[/word] 
 
	[word]	first	[/word] 
 
	[word]	cigar	[/word] 
 
	[word]	,	[/word] 
 
	[word]	because	[/word] 
 
	[word]	it	[/word] 
 
	[word]	was	[/word] 
 
	[word]	probably	[/word] 
 
	[word]	just	[/word] 
 
	[word]	a	[/word] 
 
	[word]	bunch	[/word] 
 
	[word]	of	[/word] 
 
	[word]	rolled	[/word] 
 
	[word]	-	[/word] 
 
	[word]	up	[/word] 
 
	[word]	tobacco	[/word] 
 
	[word]	leaves	[/word] 
 
[/sentence] 
 
[mark] 
. 
[/mark] 
 
[sentence] 
  
 
If you work on a lobster boat, 
sneaking up behind people and 
pinching them is probably a 
joke that gets old real fast 
	[word]	If	[/word] 
 
	[word]	you	[/word] 
 
	[word]	work	[/word] 
 
	[word]	on	[/word] 
 
	[word]	a	[/word] 
 
	[word]	lobster	[/word] 
 
	[word]	boat	[/word] 
 
	[word]	,	[/word] 
 
	[word]	sneaking	[/word] 
 
	[word]	up	[/word] 
 
	[word]	behind	[/word] 
 
	[word]	people	[/word] 
 
	[word]	and	[/word] 
 
	[word]	pinching	[/word] 
 
	[word]	them	[/word] 
 
	[word]	is	[/word] 
 
	[word]	probably	[/word] 
 
	[word]	a	[/word] 
 
	[word]	joke	[/word] 
 
	[word]	that	[/word] 
 
	[word]	gets	[/word] 
 
	[word]	old	[/word] 
 
	[word]	real	[/word] 
 
	[word]	fast	[/word] 
 
[/sentence] 
 
[mark] 
. 
[/mark] 
 
[sentence] 
  
 
                 -- Jack Handey 
 
	[word]	--	[/word] 
 
	[word]	Jack	[/word] 
 
	[word]	Handey	[/word] 
 
[/sentence]