#!/usr/bin/perl -w
%count = ("vow",0,"con",0,"word",0,"para",0,"sen",0);
while ( <> )
   {
  $b = <>;
    if ( length($b = $_) != 0 )
        {
        $para++;
        }
   $a = $_;
    while ( $a =~ /[.?!]/)
       {
       $sen++;
       $a = $';
       }
   $a = $_;
     while ( $a =~ /[aeiou]/i )
        {
        $vow++;
        $a = $';
        }
   }
while ( <> )
   {
   $a = $_;
     while ( $a =~ /\b([a-z],[^aieou])/i)
        {
        $str = $` . uc($1);
        $a = $';
        }
   $a = $_;
     while ( $a =~ /\b([aeiou])/i)
        {
        $str = $` . lc($1);
        $a = $';
        }
   }
print $b;
print $a;
foreach $value (keys %count)
{
print "$value";
}

$ *lab3.pl lab3.txt