#!perl -na056
~~@F||next;$r=$s=0;$t=join$",map{$r+=$a=@x=/[aeiouy]/gi;$s+=$b=@y=/\w/g;s/$/ /while 3>length;pack"A".length,"$a/$b"}@F;$_=join$",@F;s/\s+$//;s/^(.{57}).{4,}$/$1.../;$t=~s/\s+\S*$//while(2+rindex$t,$")>index$_,$/;print~~@F.":\t$_\n$r/$s:\t$t\n";

#!perl -na056
next if$#F<0;($a,$b)=(0,0);@g=map{($c,$d)=(0,0);$c++,$a++for/[aeiouy]/gi;$d++,$b++for/\w/g;"$c/$d"." "x(-length("$c/$d")+length);}@F;@F=map{$_." "x(3-length)}@F;$_="@F";s/\s+$//;s/^(.{57}).{4,}/$1.../;$k="@g";$k=~s!\s+$|\s*\d+/\d+$!!while 2+rindex($k," ")>index$_,".";print++$#F.":\t$_\n$a/$b:\t$k\n";