Interlinear

Score: 164.43 (fail)

#!perl -nl $a=join'',sort split//;@{$a{$a}}=sort(@{$a{$a}},$_);END{for(sort{@{$a{$a}}<=>@{$a{$b}}||$a{$a}[0] cmp $a{$b}[0]}keys %a){$#{$a{$_}}&&print join(' ',@{$a{$_}})}}

#!perl -nl
$a=join'',sort split//;@{$a{$a}}=sort(@{$a{$a}},$_);END{for(sort{@{$a{$a}}<=>@{$a{$b}}||$a{$a}[0] cmp $a{$b}[0]}keys %a){$#{$a{$_}}&&print join(' ',@{$a{$_}})}}

Score: 174.18 (pass)

maybe last posting, improving tie a little

#!perl -ap056
sub B{lc=~y/aeiouy//.v47.(@Q=/\w/g)}$B=$Z=$C=v9;$C^=$C=($C!~/.{58}/|/\./&($Z|=$C.$_)!~s/(.{58}).{4,}/$1.../?$B|=$C.B:0).1^$Z.1for@F;$_=@F?@F.":$Z
".B.":$B
":$T;y/\0/ /

Score: 174.19 (pass)

#!perl -ap056
sub B{lc=~y/aeouiy//.v47.(@Q=/\w/g)}$B=$Z=$C=":	";$C^=$C=($C!~/.{59}/|/\./&($Z|=$C.$_)!~s/(.{59}).{4,}/$1.../?$B|=$C.B:0).1^$Z.1for@F;$_=@F?@F."$Z
".B."$B
":$T;y/\0/ /

Score: 176.20 (pass)

Shock from Alexander's 177 helps me to recognize my mistake (cycling on that nice /^\0+(??{...... ), so i've got the idea. I draw this little sketch and i'll be back tomorrow.

#!perl -ap056
sub B{lc=~y/aeiouy//.v47.(@Q=/\w/g)}reset BZC;length$C<57|/\./&($Z|=$C.$_)!~s/(.{57}).{4,}/$1.../&&($B|=$C.B),$C^=$C=$B.1^$Z.1for@F;$_=@F?@F.":	$Z
".B.":	$B
":$T;y/\0/ /

Score: 188.18 (pass)

another one bytes the dust

#!perl -ap056
sub B{lc=~y/aeiouy//.v47.(@Q=/\w/g)}$B=$Z=$C=':	';$C^=$C=($B|=$C.B).1^($Z|=$C.$_).1,$Z=~s/(.{59}).{4,}/$1.../&&$B=~s/\0+(??{$+[0]<59&&v9}).*//for@F;$_=@F?@F."$Z
".B."$B
":$T;y/\0/ /

Score: 189.17 (pass)

don't insert \n in this code

#!perl -apX056
sub B{lc=~y/aeouiy//.v47.(@Q=/\w/g)}$B=$Z=$C=":	";$B|=$C.B,($Z|=$C.$_)=~s/(.{59}).{4,}/$1.../&&$B=~s/\0+(??{$+[0]<59&&w}).*//,$C^=$C=$B.1^$Z.1for@F;$_=@F?@F."$Z
".B."$B
":$T;y/\0/ /

Score: 191.17 (pass)

#!perl -apX056
sub B{lc=~y/aeouiy//.v47.(@Q=/\w/g)}$B=$Z=":	";$B|=($C^=$C=($B^$Z).$B=~v47).B,($Z|=$C.$_)=~s/(.{59}).{4,}/$1.../&&$B=~s/\0+(??{$+[0]<59&&w}).*//for@F;$_=@F?@F."$Z
".B."$B
":$T;y/\0/ /

Score: 194.17 (pass)

#!perl -apX056
sub B{lc=~y/aeouiy//.v47.(@Q=/\w/g)}$B=$Z=":	";$B^=($C=($B^$Z).$B=~v47&v0 x99).B,($Z^=$C.$_)=~s/(.{59}).{4,}/$1.../&&$B=~s/\0+(??{$+[0]<59&&w}).*//for@F;$_=@F?@F."$Z
".B."$B
":'';y/\0/ /

Score: 196.27 (pass)

#!perl -apX056
sub B{y/aeouiyAEOUIY//."/".(()=/\w/g)}$B=$Z=":	";$B^=($C=($B^$Z).$B=~"/"&v0 x99).B,($Z^=$C.$_)=~s/(.{59})....+/$1.../&&$B=~s/\0+(??{$+[0]<59&&w}).*//for@F;$_=@F?@F."$Z
".B."$B
":'';y/\0/ /

Score: 197.16 (pass)

i know why i'm stuck - i forgot my rule to immediately send updates

#!perl -ap056
sub B{(@Q=/[aeiouy]/ig).v47.(@Q=/\w/g)}$B=$Z=':	';$B^=($C=($Z^$B).$B=~v47&v0 x99).B,($Z^=$C.$_)=~s/(.{59}).{4,}/$1.../&&$B=~s/\0+(??{$+[0]<59&&v9}).*//for@F;$_=@F?@F."$Z
".B."$B
":$T;y/\0/ /

Score: 199.16 (pass)

yesss

#!perl -ap056
sub B{(@Q=/[aeiouy]/ig).v47.(@Q=/\w/g)}$B=$Z=':	';$Z^=($C=($Z^$B).$B=~v47&v0 x99).$_,$B^=$C.B for@F;$Z=~s/(.{59})....+/$1.../&&$B=~s/\0+(??{$+[0]<59&&v5}).*//;$_=@F?@F."$Z
".B."$B
":$T;y/\0/ /

Score: 209.16 (pass)

and finally i've reach the place where Ton starts

#!perl -ap056
sub B{(@Q=/[aeiouy]/ig).v47.(@Q=/\w/g)}$B=$Z=':	';$Z^=($C=($Z^$B).$B=~/\//&v0 x99).$_,$B^=$C.B for@F;pos$B=59;$Z=~s/(.{59})....+/$1.../&&$B=~s/\0+\G.*|\G([^\0]+).*/$1/;$_=@F?@F."$Z
".B."$B
":'';s/\0/ /g

Score: 211.16 (pass)

#!perl -ap056
sub B{(@Q=/[aeiouy]/ig).v47.(@Q=/\w/g)}$B=$Z=':	';$Z^=($C=($Z^$B).($B=~/\//)&v0 x99).$_,$B^=$C.B for@F;pos$B=59;$Z=~s/(.{59})....+/$1.../&&$B=~s/\0+\G.*|\G([^\0]+).*/$1/;$_=@F?@F."$Z
".B."$B
":'';s/\0/ /g

Score: 213.15 (pass)

#!perl -ap056
sub B{(@Q=/[aeiouy]/ig).v47.(@Q=/\w/g)}$B=$Z=v58;$Z^=($C=($Z^$B).b&v0 x99).$_,$B^=$C.B for@F;s/\0/ /g,s/ /	/for$B,$Z;pos$B=59;$Z=~s/(.{59})....+/$1.../&&$B=~s/\s+\G.*|\G(\S+).*/$1/;$_=@F?@F."$Z
".B."$B
":''

Score: 215.16 (pass)

looks like i think better after i post solution, sorry referees

#!perl -ap056
sub B{(@Q=/[aeiouy]/ig).v47.(@Q=/\w/g)}$B=$Z=':	';$Z^=v0 x(($C=length($Z^$B))+=$C>2).$_,$B^=v0 x$C.B for@F;pos$B=59;$Z=~s/(.{59})....+/$1.../&&$B=~s/\0+\G.*|\G([^\0]+).*/$1/;$_=@F?@F."$Z
".B."$B
":'';s/\0/ /g

Score: 217.22 (pass)

#!perl -ap056
sub B{1*s/[aeiouy]/$&/ig.'/'.1*s/\w/$&/g}$B=$A=':	';$A^=v0 x(($C=length($A^$B))+=$C>2).$_,$B^=v0 x$C.B for@F;pos$B=59;$A=~s/(.{59})....+/$1.../&&$B=~s/\0+\G.*|\G([^\0]+).*/$1/;$_=@F?@F."$A
".B."$B
":'';s/\0/ /g

Score: 223.22 (pass)

5th place than

#!perl -ap056
sub B{1*s/[aeiouy]/$&/ig.'/'.1*s/\w/$&/g}$B=$A=':	';($A^=v0 x(($C=length($A^$B))+=$C>2)).=$_,($B^=v0 x$C).=B for@F;pos$B=59;$A=~s/(.{59})....+/$1.../&&$B=~s/\0+\G.*|\G([^\0]+).*/$1/;$_=@F?@F."$A
".B."$B
":'';s/\0/ /g

Score: 233.26 (pass)

back my sixth place

#!perl -ap056
sub B{1*s/[aeiouy]/$&/ig.'/'.1*s/\w/$&/g}$B=$A=':	';$A.=$"x((($C=($D=length$A)>($E=length$B)?$D:$E)+=$D>2)-$D).$_,$B.=$"x($C-$E).B for@F;pos$B=59;$A=~s/(.{59})....+/$1.../&&$B=~s/\s+\G.*|\G(\S+).*/$1/;$_=@F?@F."$A
".B."$B
":''

Score: 247.26 (pass)

back my 6th place

#!perl -ap056
$B=$A=':	';$B{$_}=1*s/[aeiouy]/$&/ig.'/'.1*s/\w/$&/gfor$_,@F;$A.=$"x((($C=($D=length$A)>($E=length$B)?$D:$E)+=$D>2)-$D).$_,$B.=$"x($C-$E).$B{$_}for@F;pos$B=59;$A=~s/(.{59})....+/$1.../&&$B=~s/\s+\G.*|\G(\S+).*/$1/;$_=@F?@F."$A
$B{$_}$B
":''

Score: 262.26 (pass)

1) to run from beginner 2) to test \t 3) panic!

#!perl -ap056
$B{$_}=1*s/[aeiouy]/$&/ig.'/'.1*s/\w/$&/gfor$_,@F;$B=$A=':	';$D=length$A,$E=length$B,$C=$D>$E?$D:$E,$C+=$D>2,$A.=$"x($C-$D).$_,$B.=$"x($C-$E).$B{$_}for@F;pos$A=59;pos$B=59;$A=~s/\G....+/.../&&$B=~s/\s+\G.*//||$B=~s/\G(\S+).*/$1/;$_=@F?@F."$A
$B{$_}$B
":''

Score: 278.16 (pass)

#!perl -lp056
split||exit;$v{$_}=1*s/[aeiouy]/$&/ig.'/'.1*s/\w/$&/gfor$_,@_;$v=$n=":\t";$N=length$n,$V=length$v,$M=$N>$V?$N:$V,$M+=$N>2,$n.=$"x($M-$N).$_,$v.=$"x($M-$V).$v{$_}for@_;$n.='.';pos$n=59;pos$v=59;$n=~s/\G....+/.../&&$v=~s/\s+\G.*//c||$v=~s/\G(\S+).*/$1/;$_=@_."$n\n$v{$_}$v"