#!perl -0n
map{split&&do{($m,@a,@b)=map[$_,($x=@x=/[aeiouy]/gi).'/'.($y=@y=/\w/gi)],$_,@_;(my$z+=1+(($q)=sort{$b<=>$a}map y///c,@$_))<63and$r=push@b,[-$q,@$_]for@a;$b[-1][0]=0;($v="@{[map{sprintf'%*s',@$_}@b]}.")=~s/(.{56})(.)(.{4,6}).*/$1$2.../and$r-=@q="$2$3"=~/\s\S/g;$b[--$r][0]=0;print++$#_.":\t$v
$m->[1]:\t@{[map{sprintf'%*s',@$_[0,2]}@b[0..$r]]}
"}}$e=$1while s/(.*?)\.//s

#!perl -0n
map{split&&do{($m,@a,@b,$z)=map[$_,($x=@x=/[aeiouy]/gi).'/'.($y=@y=/\w/gi)],$_,@_;$z++<63and$z+=$q=(sort{$a<=>$b}map y///c,@$_)[1],$r=push@b,[-$q,@$_]for@a;$b[-1][0]=0;($v="@{[map{sprintf'%*s',@$_}@b]}.")=~s/(.{56})(.)(.{4,6}).*/$1$2.../and$r-=@q="$2$3"=~/\s\S/g;$b[--$r][0]=0;print++$#_.":\t$v
$m->[1]:\t@{[map{sprintf'%*s',@$_[0,2]}@b[0..$r]]}
"}}$e=$1while s/(.*?)\.//s