#!perl
$/=$;;for(<>=~/[^\n ]+/g){$v+=@a=/[aeiouy]/gi;$t+=@z=/\w/g;@q=/./g;$,=' ';$,x=3if@q==1;$,x=2if@q==2;$x.=$_.$,;push@;,@a.'/'.@z;$n++;if(/\./){$_=$x;s/ +$//&s/^(.{57}).{4,}/$1.../;$y=$_;$y=~s/.*?[. ]+/sprintf'%-'.(length$&).'s',shift@;/ge;s/ +$//for$y,$_;print"$n:\t$_\n$v/$t:\t$y\n";($n,$v,$t,$x,@;)=0}}

#!perl
$/=$;;for(<>=~/[^\n ]+/g){$v+=@a=/[aeiouy]/gi;$t+=@z=/\w/g;$q=length;$,=' ';$,x=3if$q==1;$,x=2if$q==2;$x.=$_.$,;push@;,@a.'/'.@z;$n++;if(/\./){$_=$x;s/ +$/_/&s/^(.{57}).{5,}/$1..._/;for$m(/.*?[. ]+/g){$_.=sprintf'%-'.(length$m).'s',shift@;}/(.*?) *_(.*?) *$/;print"$n:\t$1\n$v/$t:\t$2\n";$n=$v=$t=$x='';@;=()}}