#!perl
$/=4;map{if(!/^$/){s/^\s*//;map{$w=l($c=$_)-tr/-.,;:'"()&\///;$q=tr/aeiouyAEIOUY//;$d="$q/$w ";$c.=' '.' 'x(l($d)-&l($c)-1)if$c!~/\./;$d.=' 'x(l($c)-&l($d));$m.=$c;if(l($m)>60){substr($m,57)="...";$n.=$d if l($n)<57}else{$n.=$d}$r+=$q;$p+=$w;$j++}split/\s+/;$n=~s/\s*$//;print"$j:\t$m\n$r/$p:\t$n\n";$m=$n=$j=$r=$p=''}}<>=~/(.*?\.)?/msg;sub l{length@_[0]}

#!perl
$/=4;map{if(!/^$/){s/\s+/ /s;s/^\s*//;map{$w=l($c=$_)-tr/-.,;:'"()&\///;$q=tr/aeiouyAEIOUY//;$d="$q/$w ";$c.=' '.' 'x(l($d)-&l($c)-1)if$c!~/\./;$d.=' 'x(l($c)-&l($d));$m.=$c;if(l($m)>60){substr($m,57)="...";$n.=$d if l($n)<57}else{$n.=$d}$r+=$q;$p+=$w;$j++}split/\s+/;$n=~s/\s*$//;print"$j:\t$m\n$r/$p:\t$n\n";$m=$n=$j=$r=$p=''}}<>=~/(.*?\.)?/msg;sub l{length@_[0]}

#!perl
$/=4;map{if(!/^$/){s/\s+/ /s;$_.=".";s/^\s*//;map{$w=l($c=$_)-tr/-.,;:'"()&\///;$q=tr/aeiouyAEIOUY//;$d="$q/$w ";$c.=' '.' 'x(l($d)-&l($c)-1)if$c!~/\./;$d.=' 'x(l($c)-&l($d));$m.=$c;if(l($m)>60){substr($m,57)="...";$n.=$d if l($n)<57}else{$n.=$d}$r+=$q;$p+=$w;$j++}split/\s+/;$n=~s/\s*$//;print"$j:\t$m\n$r/$p:\t$n\n";$m=$n=$j=$r=$p=''}}split/\.\s*/,<>;sub l{length@_[0]}

#!perl
$/='!';$_=<>;map{if(!/^$/){s/\s+/ /s;$_.=".";s/^\s*//;map{$w=l($c=$_)-tr/-.,;:'"()&\///;$q=tr/aeiouyAEIOUY//;$d="$q/$w ";$c.=' '.' 'x(l($d)-&l($c)-1)if$c!~/\./;$d.=' 'x(l($c)-&l($d));$m.=$c;if(l($m)>60){substr($m,57)="...";$n.=$d if l($n)<57}else{$n.=$d}$r+=$q;$p+=$w;$j++}split/\s+/;$n=~s/\s*$//;print"$j:\t$m\n$r/$p:\t$n\n";($m,$n,$j,$r,$p)=()}}split/\.\s*/;sub l{length@_[0]}

#!perl
$/='!';$_=<>;map{if(!/^$/){s/[\s]+/ /s;$_.=".";s/^\s*//;map{$w=l($c=$_)-tr/[\-.,;:'"()&\/]//;$q=tr/[aeiouyAEIOUY]//;$d="$q/$w ";$c.=' '.' 'x(l($d)-&l($c)-1)if$c!~/\./;$d.=' 'x(l($c)-&l($d));$m.=$c;if(l($m)>60){substr($m,57)="...";$n.=$d if l($n)<57}else{$n.=$d}$r+=$q;$p+=$w;$j++}split/\s+/;$n=~s/\s*$//;print"$j:\t$m\n$r/$p:\t$n\n";($m,$n,$j,$r,$p)=()}}split/\.\s*/;sub l{length@_[0]};

#!perl
undef$/;$_=<>;map{if(!/^$/){s/[\s]+/ /s;$_.=".";s/^\s*//;map{$o=l($c=$_)-tr/[\-.,;:'"()&\/]//;$q=tr/[aeiouyAEIOUY]//;$d="$q/$o ";$c.=' '.' 'x(l($d)-&l($c)-1)if$c!~/\./;$d.=' 'x(l($c)-&l($d));$m.=$c;if(l($m)>60){substr($m,57)="...";$n.=$d if l($n)<57}else{$n.=$d}$r+=$q;$p+=$o;$i++}split/\s+/;$n=~s/\s*$//;print"$i:\t$m\n$r/$p:\t$n\n";($m,$n,$i,$r,$p)=()}}split/\.\s*/;sub l{length@_[0]};