Interlinear

Score: 198.20 (pass)

#!perl -ap056
$p=$V=$L=0;@C=map{$q=$p;$V+=$v=lc=~y/aeiouy//;$L+=$l=y/0-9@-z//;$p=y///c-split//,$k="$v/$l";$_=$"x-$q.$_;$"x$q.$k}@F;$_="@F";s/(.{57}).{4,}/$1.../;$#C=-1-/ \./+split;$_&&=@F.":	$_
$V/$L:	@C
"

Score: 200.20 (pass)

#!perl -ap056
$p=$V=$L=0;@C=map{$q=$p;$V+=$v=lc=~y/aeiouy//;$L+=$l=y/0-9@-z//;$p=y///c-split//,$k="$v/$l";$_=$"x-$q.$_;$"x$q.$k}@F;$_="@F";s/(.{57}).{4,}/$1.../;$_=@F.":	$_
$V/$L:	@C
"if$#C=-1-/ \./+split,@F

Score: 202.21 (pass)

#!perl -ap056
$p=$V=$L=0;@C=map{$q=$p;$V+=$v=lc=~y/aeiouy//;$L+=$l=y/0-9A-z//;$p=y///c-split//,$k="$v/$l";$_=$"x-$q.$_;$"x$q.$k}@F;$_="@F";s/(.{57}).{4,}/$1.../;$_=@F.":	$_
$V/$L:	@C
"if$#C=-1-/ \W+$/+split,@F

Score: 212.22 (pass)

#!perl -n056
$p=$V=$L=my@C;$_=join$",map{$q=$p;$V+=$v=lc=~y/aeiouy//;$L+=$l=y/0-9A-z//;$p=y///c-length($k="$v/$l");push@C,$"x$q.$k;$"x-$q.$_}split;s/(.{57})....+/$1.../;@C&&print@C.":	$_
$V/$L:	@C[0..-1-/ \W+$/+split]
"

Score: 215.22 (pass)

#!perl -n056
$p=$V=$L=my@C;$_=join$",map{$q=$p;$V+=$v=lc=~y/aeiouy//;$L+=$l=y/0-9A-z//;$p=y///c-length($k="$v/$l");push@C,$"x$q.$k;$"x-$q.$_}@s=split;s/(.{57})....+/$1.../;@s&&print@s.":	$_
$V/$L:	@C[0..-1-/ \W+$/+split]
"

Score: 227.21 (pass)

I hope it works this time!

#!perl -ln0777
map{$p=$V=$L=@C=();$_=join$",map{$q=$p;$V+=$v=lc=~y/aeiouy//;$L+=$l=y/0-9A-z//;$p=y///c-length($k="$v/$l");push@C,$"x$q.$k;$"x-$q.$_}@s=split;s/(.{57})....+/$1.../;print@s.":	$_
$V/$L:	@C[0..-1-/ \W+$/+split]"}/.+?\./gs

Score: 229.21 (fail)

I saved three strokes by replacing the \t and \n in the printed string with literal tabs and new lines, I hope it comes out correctly -- the total should be 227 chars.

#!perl -ln0777
map{$p=$V=$L=@C=();$_=join$",map{$q=$p;$V+=$v=lc=~y/aeiouy//;$L+=$l=y/0-9A-z//;$p=y///c-length($k="$v/$l");push@C,$"x$q.$k;$"x-$q.$_}@s=split;s/(.{57})....+/$1.../;print@s.":  $_
$V/$L:  @C[0..-1-/ \W+$/+split]"}/.+?\./gs

Score: 230.20 (pass)

#!perl -ln0777
map{$p=$V=$L=@C=();$_=join$",map{$q=$p;$V+=$v=lc=~y/aeiouy//;$L+=$l=y/0-9A-z//;$p=y///c-length($k="$v/$l");push@C,$"x$q.$k;$"x-$q.$_}@s=split;s/(.{57})....+/$1.../;print@s.":\t$_\n$V/$L:\t@C[0..-1-/ \W+$/+split]"}/.+?\./gs

Score: 232.20 (pass)

#!perl -ln0777
map{$p=$V=$L=@C=();$_=join$",map{$q=$p;$V+=$v=lc=~y/aeiouy//;$L+=$l=y/0-9A-z//;$p=y///c-length($k="$v/$l");push@C,$"x$q.$k;$"x-$q.$_}@s=/\S+/g;s/(.{57}).{4,}/$1.../;print@s.":\t$_\n$V/$L:\t@C[0..split()-1-/ \W+$/]"}/.+?\./gs

Score: 244.19 (pass)

#!perl -ln0777
map{$p=$V=$L=@C=();$_=join$",map{$q=$p;$V+=$v=lc=~y/aeiouy//;$L+=$l=y/0-9A-z//;$p=y///c-length($k="$v/$l");push@C,$"x$q.$k;$"x-$q.$_}@s=/\S+/g;s/(.{57}).{4,}/$1.../;$k=@S=split;print@s.":\t$_\n$V/$L:\t@C[0..$k-$S[--$k]!~/\w/]"}/.+?\./gs

Score: 286.23 (pass)

Whew, under the 300 mark!

#!perl -ln0777
map{if(@s=/\S+/g){$V=$L=@S=@C=();map{$V+=$v=y/aeiouyAEIOUY//;$L+=$l=y/a-zA-Z0-9//;$p=y///c-length($k="$v/$l");push@S,$_.$"x-$p;push@C,$k.$"x$p}@s;$_="@S";s/\s*$/./;s/(.{57}).{4,}/$1.../;$k=@S=split;($c="@C[0..$k-$S[--$k]!~/\w/]")=~s/\s*$//;print@s.":\t$_\n$V/$L:\t$c"}}split/\./

Score: 303.21 (pass)

#!perl -ln0777
for(split/\./){(@s=/\S+/g)||last;$V=$L=@S=@C=();for(@s){$V+=$v=y/aeiouyAEIOUY//;$L+=$l=y/a-zA-Z0-9//;$k="$v/$l";$p=length($k)-length;push@S,$_.$"x$p;push@C,$k.$"x-$p}($_="@S")=~s/\s*$/./;s/(.{57}).{4,}/$1.../;$k=@S=split;$k-=$S[--$k]!~/\w/;($c="@C[0..$k]")=~s/\s*$//;print@s.":\t$_\n$V/$L:\t$c"}