#!perl -ln
$b.=$".$_}map{if(s/\s*(\S.*)/$1\./){split/\s+/;$x=@_.":	";$z=&Q.":	";map{$c=y///c-length&Q;$x.=$_.$"x($c<0?1-$c:1);$z.=&Q.$"x($c<0?1:1+$c)}@_;$_="$x
$z";s/ *
/
/;s!(^\d+:	.{57}).{4,}!$1...!&&s,(/.+:	.{56}[^ ]*).*$,$1,;s, *$,,;print}}split/\./,$b;sub
Q{y/aeiouyAEIOUY//.'/'.y/a-zA-Z0-9//

#!perl -ln
$b.=$".$_}map{if(s/\s*(\S.+)/$1\./){split/\s+/;$x=@_.":\t";$z=&Q.":\t";map{$x.=$_.$"x(($c=y///c-length&Q)<0?1-$c:1);$z.=&Q.$"x($c<0?1:1+$c)}@_;$_="$x
$z";s/ *
/
/;s!(^\d+:.{57}).{4,}!$1...!&&s,(/.+:\t.{56}[^ ]*).*$,$1,;s, *$,,;print}}split/\./,$b;sub Q{y/aeiouyAEIOUY//.'/'.y/a-zA-Z0-9//

#!perl -ln
$b.=$".$_}map{if(s/\s*(\S.*)/$1\./){split/\s+/;$x=@_.": ";$z=&Q.":      ";map{$c=y///c-length&Q;$x.=$_.$"x($c<0?1-$c:1);$z.=&Q.$"x($c<0?1:1+$c)}@_;$_="$x
$z";s/ *
/
/;s!(^\d+:	.{57}).{4,}!$1...!&&s,(/.+:	.{56}[^ ]*).*$,$1,;s, *$,,;print}}split/\./,$b;sub
Q{y/aeiouyAEIOUY//.'/'.y/a-zA-Z0-9//

#!perl -ln
$b.=$".$_}map{if(s/\s*(\S.*)/$1\./){split/\s+/;$x=@_.": ";$z=&Q.":      ";map{$c=y///c-length&Q;$x.=$_.$"x($c<0?1-$c:1);$z.=&Q.$"x($c<0?1:1+$c)}@_;$_="$x
$z";s/ *
/
/;s!(^\d+:\t.{57}).{4,}!$1...!&&s,(/.+:\t.{56}[^ ]*).*$,$1,;s, *$,,;print}}split/\./,$b;sub
Q{y/aeiouyAEIOUY//.'/'.y/a-zA-Z0-9//

#!perl -ln
$a.=$".$_}sub
Q{y/aeiouyAEIOUY//.'/'.y/a-zA-Z0-9//}for(split/\s*\./,$a){s/^\s+//;s/.$/$&./ 
or 
next;$z=&Q.":\t";$y=(split/\s+/).":\t";map{$a=(length&Q)-length;$y.=$_.$"x($a>0?$a+1:1);$z.=&Q.$"x($a>0?1:1-$a)}split/\s+/;$y=~s/ *$//;$z=~s/(.*\t.{56}[^ ]*).*/$1/ 
if($y=~s/(.*\t.{57}).{4,}/$1.../);$_="$y
$z";s/ *$//;print

#!perl -lnaF.
$F[0]=$c.$".$F[0]if$c;$c=m/\.$/?'':pop@F;map{$r=$s=$w=$t=$q='';map{++$w;$v=0+s/([aeiouy])/$1/gi;$u=s/([a-z0-9])/$1/ig;$p=1+y///c;$r+=$v;$s+=$u;$x=length($o="$v/$u ");$t.=$_.$";$q.=$o;($x>$p)?$t:$q.=$"x
abs($x-$p)}split/\s+/;$t=~s/\s*$//;$_=$q;if(length$t>60){substr($t,57)="...";s/^(.{56}[^ ]*).*$/$1/}s/\s*$//;print"$w:\t$t\n$r/$s:\t$_"}@F