#!perl -ln
for(/\S+/g){$t++;$q+=@v=/[aeiouy]/ig;$r+=@c=/[a-z\d]/ig;$w=length($p.=$_)-length($s.=@v."/".@c);/\./ or$s.=$"x$w.$",$p.=$"x-$w.$",next;$_=$s;$p=~s/(.{57}).{4,}/$1.../&&s/(.{56,}?) .*/$1/;s/ +$//;print"$t:	$p
$q/$r:	$_";$$_=''for(p..t)}

#!perl -ln
for(split" "){$t++;$q+=@v=/[aeiouy]/ig;$r+=@c=/[a-z\d]/ig;$w=($n=length($p.=$_))-length($s.=@v."/".@c.$");if(/\.$/){$s=~s/(.{56,}?) .*/$1/,substr($p,57)='.'x3if$n>60;$s=~s/ +$//;print"$t:	$p
$q/$r:	$s";$$_=''for(p..t);next}$s.=$"x++$w,$p.=$"x-$w.$"}

#!perl -ln
for(split/ +/){$t++;$q+=@v=/[aeiouy]/ig;$r+=@c=/[a-z\d]/ig;$w=($n=length($p.=$_))-length($s.=@v."/".@c.$");if(/\.$/){$s=~s/(.{56,}?) .*/$1/,substr($p,57)='.'x3if$n>60;$s=~s/ +$//;print"$t:\t$p
$q/$r:\t$s";$$_=''for(p..t);next}$s.=$"x++$w,$p.=$"x-$w.$"}

#!perl -ln
for(split/ +/){$t++;$q+=@v=/[aeiouy]/ig;$r+=@c=/[a-z\d]/ig;$w=($n=length($p.=$_))-length($s.=@v."/".@c.$");if(/\.$/){$s=~s/(.{56,}?) .*/$1/,substr($p,57)='.'x3if$n>60;$s=~s/ +$//;print"$t:\t$p\n$q/$r:\t$s";$$_=''for(p..t)}else{$s.=$"x++$w,$p.=$"x-$w.$"}}

#!perl -ln
for(split/ +/){$t++;$b+=$v=()=/[aeiouy]/ig;$m+=$c=()=/[a-z\d]/ig;$w=($n=length($p.="$_ "))-length($z.="$v/$c ");$z.=$"x$w,$p.=$"x-$w;if(/\.$/){$z=~s/(.{56}.*?) .*/$1/,substr($p,57)='.'x3if$n>61;$p=~s/ +$//;$z=~s/ +$//;print"$t:\t$p\n$b/$m:\t$z";$p=$z=$t=$b=$m=''}}

#!perl -ln
for(split/ +/){$t++;$b+=$v=()=/[aeiouy]/ig;$m+=$c=()=/[a-z\d]/ig;$w=($n=length($p.="$_ "))-length($z.="$v/$c ");$z.=$"x$w,$p.=$"x-$w;if(/\.$/){$z=~s/^(.{56}.*?) .*/$1/,substr($p,57)='.'x3if$n>61;$p=~s/ +$//;$z=~s/ +$//;print"$t:\t$p\n$b/$m:\t$z";$p=$z=$t=$b=$m=''}}

#!perl -ln
for(split/+ /){$y++;$a+=$v=()=/[aeiouy]/ig;$e+=$c=()=/[[:alnum:]]/g;$i=length($t.="$_ ");$o=length($u.="$v/$c ");$u.=$"x($i-$o),$t.=$"x($o-$i);if(/\.$/){$u=~s/^(.{56}.*?) .*/$1/,substr($t,57)='...'if$i>61;$t=~s/ +$//;$u=~s/ +$//;print"$y:\t$t\n$a/$e:\t$u";$t=$u='';$y=$a=$e=0}}

#!perl -ln
for(split/ +/){$y++;$a+=$v=()=/[aeiouy]/ig;$e+=$c=()=/[[:alnum:]]/g;$i=length($t.="$_ ");$o=length($u.="$v/$c ");$u.=$"x($i-$o),$t.=$"x($o-$i);if(/\.$/){$u=~s/^(.{56}.*?) .*/$1/,substr($t,57)='...'if$i>61;$t=~s/ +$//;$u=~s/ +$//;print"$y:\t$t\n$a/$e:\t$u";$t=$u='';$y=$a=$e=0}}