Interlinear

Score: 225.22 (pass)

Tiny shavings. Now I really am going home

#!perl -ap056
reset'a-z';for(@F){$c+=$C=()=/\w/g;$v+=$V=()=/[aeiouy]/gi;$w.="$_ ";$n.="$V/$C ";($_|=$n^$n^$w^$w)=~y/\0/ /for$w,$n}$_=$w;s/ +$//;s/(.{57})....+/$1.../;$n=~/\S+/gfor/[^.\s]\S*/g;$n=~s/\G.*//;$_=$n&&@F.":	$_
$v/$c:	$n
"

Score: 228.23 (pass)

Aha! I knew there must be a way to shorten those variable initializations.

#!perl -ap056
reset'a-z';for(@F){$c+=$C=()=/\w/g;$v+=$V=()=/[aeiouy]/gi;$w.="$_ ";$n.="$V/$C ";($_|=$n^$n^$w^$w)=~y/\0/ /for$w,$n}$_=$w;s/ +$//;s/(.{57})....+/$1.../;$n=~/\S+/gwhile/[^.]\S*\s*/g;$n=~s/\G.*//;$_=$n&&@F.":	$_
$v/$c:	$n
"

Score: 242.17 (pass)

There must be better ways of reducing characters than realising how stupid the previous submission was. I wish I could think of a new algorithm

#!perl -ap056
$W=$N=$C=$V='';$w=@F;for(@F){$C+=$c=()=/\w/g;$V+=$v=()=/[aeiouy]/gi;$W.="$_ ";$N.="$v/$c ";($_|=$N^$N^$W^$W)=~y/\0/ /for$W,$N}$_=$W;s/ +$//;s/(.{57})....+/$1.../;$n=()=/\s[^\s.]/g;$N=~s/(\S+( +\S+){$n}).*/$1/;$_=$N&&"$w:	$_
$V/$C:	$N
"

Score: 248.16 (pass)

This passes the test program, and I didn't agree with the refs comments on the previous attempt. Can I see an example of wrong output if this one doesn't work?

#!perl -ap056
$W=$N=$C=$V='';$w=@F;for(@F){$C+=$c=()=/\w/g;$V+=$v=()=/[aeiouy]/gi;$W.="$_ ";$N.="$v/$c ";($_|=$N^$N^$W^$W)=~y/\0/ /for$W,$N}$W=~s/ +$//;$W=~s/(.{57})....+/$1.../;$n=()=$W=~/\s[^\s.]/g;$N=~s/(\S+( +\S+){$n}).*/$1/;$_=$N&&"$w:	$W
$V/$C:	$N
"

Score: 255.17 (fail)

Let's see if this gets in without C&P errors

#!perl -ap056
$W=$N=$C=$V=$E='';$w=@F;for(@F){$C+=$c=()=/\w/g;$V+=$v=()=/[aeiouy]/gi;$W.="$_ ";$N.="$v/$c ";($_|=$N^$N^$W^$W)=~y/\0/ /for$W,$N}$W=~s/ +$//;$W=~s/(.{57})....+/$1.../;$n=()=$W=~/(^|\s)[^\s.]/g;$N=~s/((\b\S+ *?){$n}).*/$1/;$_=$N&&"$w:	$W
$V/$C:	$N
"

Score: 291.16 (fail)

Those \t's should be tab characters, but I can't type them into the field

#!perl -n056
$W=$N=$C=$V='';for(@w=split){$C+=$c=()=/[^\W_]/g or
next;$V+=$v=()=/[aeiouy]/gi;$n="$v/$c";$W.="$_ ";$N.="$n ";($_|=$N^$N^$W^$W)=~y/\0/ /for$W,$N}s/ +$//for$W,$N;$W=~s/(.{57})....+/$1.../;$n=()=$W=~/\S+/g;$n-=$W=~/ \.\./;$N=~s/((\b\S+ *?){$n}).*/$1/;$N&&print$n=@w,"
:\t$W
$V/$C:\t$N
"