#!perl -056n
sub d{lc=~y!aeiouy!!.'/'.s!\w!$&!g}@w=/\S+/g;$"=' 'x60;$_="@w
@{[d]}:	@{[map{d}@w]}";for$x(0..80){$h=".{$x}) +(.*)";s/^($h(
.*	$h/$1 $2$3 $4/}s/^(.{57}).{4,}(
.*	.{56,}? )?.*/$1...$2/;s/\s*$//;print@w+0,":	$_
"if@w

#!perl -056n
sub d{lc=~y!aeiouy!!.'/'.s!\w!$&!g}@w=/\S+/g;$"=' 'x60;$_="@w
@{[d]}:	@{[map{d}@w]}";for$x(0..80){s/^(.{$x}) +(.*)
(.*	.{$x}) +(.*)/$1 $2
$3 $4/}s/^(.{57}).{4,}/$1.../&&s/(	.{56,}?) .*/$1/;s/\s*$//;print@w+0,":	$_
"if@w

#!perl -056n
sub d{lc=~y!aeiouy!!.'/'.s!\w!$&!g}@w=/\S+/g;$"=' 'x60;$_="@w
@{[d]}:	@{[map{d}@w]}";for$x(0..80){s/^(.{$x}) +(.*)
(.*	.{$x}) +(.*)/$1 $2
$3 $4/}s/^(.{57}).{3,}\S.*/$1.../&&s/(	.{56}.*?) .*$/$1/;s/\s*$//;print@w+0,":	$_
"if@w

#!perl -056n
sub d{lc=~y!aeiouy!!.'/'.s!\w!$&!g}my($m,$p,$x);$m++,$x.=$c=sprintf('%-*s ',y!!!c,d),$p.=sprintf'%-*s',length$c,$_ for/(\S+)/g;$p=~s/(.{57})....*\S.*/$1.../and$x=~s/(.{56}.*?) .*/$1/;s/\s+$//for$p,$x;print"$m:\t$p
@{[d]}:\t$x
"if$m

#!perl -056n
sub d{y!aeiouyAEIOUY!!.'/'.s!\w!$&!g}my($m,$p,$x);$m++,$x.=$c=sprintf('%-*s ',length,d),$p.=sprintf'%-*s',length$c,$_ for/(\S+)/g;$p=~s/(.{57})....*\S.*/$1.../and$x=~s/(.{56}.*?) .*/$1/;s/\s+$//for$p,$x;print"$m:\t$p
@{[d]}:\t$x
"if$m

#!perl -056n
sub d{y!aeiouyAEIOUY!!.'/'.s!\w!$&!g}my($m,$p,$x);for(/(\S+)/g){$m++;$x.=$c=sprintf'%-*s ',length,d;$p.=sprintf'%-*s',length$c,$_}$p=~s/\s+$//;$p=~s/(.{57})....+/$1.../and$x=~s/((.{56}).*?) .*/$1/;$x=~s/\s+$//;print"$m:\t$p
@{[d]}:\t$x
"if$m

#!perl -056n
sub d{return y!aeiouyAEIOUY!!.'/'.s!\w!$&!g for@_}my($m,$p,$x);for(/(\S+)/g){$m++;$x.=$c=sprintf'%-*s ',length,d$_;$p.=sprintf'%-*s ',length($c)-1,$_ }$p=~s/\s+$//;$p=~s/(.{57}).{4,}/$1.../and$x=~s/((.{56}).*?) .*/$1   /;$x=~s/\s+$//;print$m,":\t$p\n",d($_),":\t$x\n"if$m

#!perl -056n
sub d{return y!aeiouyAEIOUY!!.'/'.y!a-zA-Z0-9!!for@_}$m=0;$p=$x='';for(/(\S+)/g){$m++;$x.=$c=sprintf'%-*s ',length,d$_;$p.=sprintf'%-*s ',length($c)-1,$_;}$p=~s/\s+$//;$p=~s/(.{57})....+/$1.../and$x=~s/((.{56}).*?) .*/$1   /;$x=~s/\s+$//;print $m,":\t$p\n",d($_),":\t$x\n"if$m

#!perl -056n
sub d{$v=$l=0;map{$l++;$v++if/[aeiouy]/i}$_[0]=~/(\w)/g;"$v/$l"}
(@w=/(\S+)/g)||next;
$p=$x='';
for(@w){$x.=$c=sprintf'%-*s ',length,d$_;$p.=sprintf'%-*s ',length($c)-1,$_;}
$p=~s/\s+$//;
$p=~s/(.{57})....+/$1.../and$x=~s/((.{56}).*?) .*/$1   /;
$x=~s/\s+$//;
print 0+@w,":\t$p\n",d($_),":\t$x\n";

#!perl -056n
sub d{$v=$l=0;map{$l++;$v++if/[aeiouy]/i}$_[0]=~/(\w)/g;"$v/$l"}
(@w=/(\S+)/g)||next;
$p=$x='';
for(@w){
        $x.=$c=sprintf'%-*s ',length,d$_;
        $p.=sprintf'%-*s ',length($c)-1,$_;
}
$p=~s/\s+$//;
$p=~s/(.{57})....+/$1.../and$x=~s/((.{56}).*?) .*/$1   /;
$x=~s/\s+$//;
print 0+@w,":\t$p\n",d($_),":\t$x\n";