local $/ = "";
open $fh, $ARGV[0] or die "File $ARGV[0] not found!\n";
$scount = 0;
$pcount=0;

while ($line = <$fh>){
#brackets sentences
	while($line =~ /\s*(([A-Z][A-Za-z]*)(((([A-Za-z]|[0-9])*((\'*|\-*)[A-Za-z]*))\s*(\.{3})*\!*\"*\(*\)*\,*\:*\s*)*(([A-Za-z]|[0-9])*))(\.|\?|\!))/g){
		print "<s>$1</s>\n";
		$scount++;
	}

#brackets paragraphs
	if ($line =~ /\s*((((([A-Za-z]|[0-9])*((\'*|\-*)[A-Za-z]*))\s*\.*\!*\"*\(*\)*\,*\:*\s*)*(([A-Za-z]|[0-9])*))(\.|\?|\!))/g){
		print "<p>\n$1\n</p>\n";
		$pcount++;
	}
}
	


print "\n Total Lines: $scount\n";
print "\n Total Paragraphs: $pcount\n";