#!perl
undef$/;map{$t=$w=$h=$p=$l="";for$n(split){$d=0;$h++;$p.=" "x(3-$g)." $n";$g=length$n;$w+=$f=$d+=$n=~s/[aeiouy]//ig;$t+=$f+=$n=~s/\w//g;$g--if$f>9;$l.="$d/$f "." "x($g-3)}$_=$l;$p=~s/\s+(.*)/$1\./;$p=substr($p,0,57)."..."if length$p>60;$p=~/.* [^\.]/g;pos=75;while(pos>pos$p||/\s$/){chop;/.* \d/g}print"$h:\t$p\n$w/$t:\t$_\n"if$h}split/\.\s/,<>

#!perl
undef$/;for(split/\.\s/,<>){$t=$w=$h=$p=$l="";for$n(split){$d=0;$h++;$c=$n;$f=$d+=$c=~s/[aeiouy]/:/ig;$f+=$c=~s/[a-z\d]/:/ig;$g=$c=~s/.//g;$w+=$d;$t+=$f;$g--if$f>9;$l.="$d/$f "." "x($g-3);$p.="$n "." "x((2-$g)+1)}$p=~s/\s+$/./;while(length$p>60){chop$p;$p=~s/.{3}$/\.\.\./}$p=~/.* [^\.]/g;$l=~/.* \d/g;while(pos$l>pos$p){chop$l;$l=~/.* \d/g}$l=~s/\s+$//;print"$h:\t$p\n$w/$t:\t$l\n"if$h}

#!perl
undef$/;for(split/\.\s/,<>){$p=$l="";$t=$w=$h=0;for$n(split){$d=$f=$g=0;$h++;for$1(split/(.)/,$n){$d++if$1=~/[aeiouy]/i;$f++if$1=~/\w/&&$1 ne"_";$g+=.5}$w+=$d;$t+=$f;$g--if$f>9;$l.="$d/$f "." "x($g-3)if length$p<60;$p.="$n "." "x((2-$g)+1)}$p=~s/\s+$/./;while(length$p>60){chop$p;$p=~s/.{3}$/\.\.\./}if($p=~/\.{3}$/&&$p!~/\s\w\.{3}$/){while(length$l>57){chop$l}}$l=~s/\s+$//;print"$h:\t$p\n$w/$t:\t$l\n"if$h;}