Interlinear

Score: 195.21 (pass)

found one more to get rid of, but that looks to be the last one :(

#!perl -pa056
sub c($){()=/@_/gi}$v=$t=0;@Q=map{$v+=$V=c"[aeiouy]";$t+=$T=c"\\w";$_.=$"x(3- c$/);pack A.c$/,"$V/$T"}@F;s/(.{57}).{4,}(?

Score: 196.22 (pass)

at this rate it'll only take 10 days to catch up with Ton... (what do you mean there are only 2 hours left??)

#!perl -pa056
sub c($){()=/@_/gi}$v=$t=0;@Q=map{$v+=$V=c"[aeiouy]";$t+=$T=c"\\w";$_.=$"x(3- c$/);pack A.c$/,"$V/$T"}@F;s/(.{57}).{4,}(?

Score: 199.23 (pass)

under 200! Yay!

#!perl -pa056
sub c{()=/@_/gi}$v=$t=0;@Q=map{$v+=$V=c"[aeiouy]";$t+=$T=c"\\w";$_.=$"x(3- c$/);pack A.c($/),"$V/$T"}@F;s/ *$//,s/(.{57}).{4,}/$1.../,$Q[$#Q=c" [^. ]"]=~y/ //d,$_=@F.":	$_
$v/$t:	@Q
"if$_="@F"

Score: 203.23 (pass)

ever closer to the 200 barrier...

#!perl -an056
sub c{()=/@_/gi}$v=$t=0;@Q=map{$v+=$V=c"[aeiouy]";$t+=$T=c"\\w";$_.=$"x(3- c$/);pack A.c($/),"$V/$T"}@F;s/ *$//,s/(.{57}).{4,}/$1.../,$Q[$#Q=c" [^. ]"]=~y/ //d,print~~@F,":	$_
$v/$t:	@Q
"if$_="@F"

Score: 212.20 (pass)

#!perl -an056
sub c{()=/@_/gi}$v=$t=0;@Q=map{$v+=$V=c"[aeiouy]";$t+=$T=c"\\w";$_.=$"x(3- c$/);sprintf"%-*s",~~c($/),"$V/$T"}@F;s/ *$//,s/(.{57}).{4,}/$1.../,$Q[$#Q=c" [^. ]"]=~y/ //d,print~~@F,":	$_
$v/$t:	@Q
"if$_="@F"

Score: 220.25 (pass)

#!perl -an056
sub c{()=/@_/gi}$v=$t=0;@O=map{$v+=$V=c"[aeiouy]";$t+=$T=c '\w|\d';$_.=$"x(3- c$/);sprintf"%-*s",~~c($/),"$V/$T"}@F;$_="@F"||next;s/ *$//;s/(.{57}).{4,}/$1.../;$O[$#O=c" [^. ]"]=~y/ //d;print~~@F,":	$_
$v/$t:	@O
"

Score: 229.29 (pass)

one character at a time... but I think I'll need a new strategy fast.

#!perl -an056
sub c{()=/@_/gi}$v=$t=0;@O=map{$v+=$V=c"[aeiouy]";$t+=$T=c '\w|\d';$_.=$"x(3- c$/);$e="$V/$T";$e.$"x(c($/)-length$e)}@F;$_="@F"||next;s/ *$//;$#O=c" [^. ]"if s/(.{57}).{4,}/$1.../;$O[-1]=~y/ //d;print~~@F,":	$_
$v/$t:	@O
"

Score: 234.29 (pass)

trying again, with the tabs pasted properly

#!perl -an056
sub c{()=/@_/gi}$v=$t=0;@O=map{$v+=$V=c"[aeiouy]";$t+=$T=c '[a-z\d]';$_.=$"x(3- c".");$e="$V/$T";$e.$"x(c(".")-length$e)}@F;$_="@F"||next;s/ *$//;$#O=c" [^. ]"if s/(.{57}).{4,}/$1.../;$O[-1]=~y/ //d;print~~@F,":	$_
$v/$t:	@O 
"

Score: 237.30 (fail)

#!perl -an056
$v=$t=$l=0;@O=map{$v+=$V=()=/[aeiouy]/gi;$t+=$T=()=/.(?=$|[a-z\d])/gi;$_.=$"x(3-$T);$e="$V/$T";$e.$"x(length()-length$e)}@F;$_="@F"||next;s/ *$//;$#O=()=/ [^. ]/g if s/(.{57}).{4,}/$1.../;$O[-1]=~y/ //d;print~~@F,":	$_
$v/$t:	@O
"

Score: 239.29 (fail)

#!perl -an056
sub c{()=/$_[0]/gi}$v=$t=0;@O=map{$v+=$V=c"[aeiouy]";$t+=$T=c '[a-z\d]';$_.=$"x(3- c".");$e="$V/$T";$e.$"x(c(".")-length$e)}@F;$_="@F"||next;s/ *$//;$#O=c" [^. ]"if s/(.{57}).{4,}/$1.../;$O[-1]=~y/ //d;print~~@F,":  $_
$v/$t:  @O 
"

Score: 256.30 (fail)

#!perl -an056 $v=$t=$l=@O=@P=();for(@F){$v+=$V=()=/[aeiouy]/gi;$t+=$T=()=/.(?=$|[a-z\d])/gi;$e="$V/$T";push@O,$e.$"x(length()-length$e);$_.=$"x(3-$T)if$T<3};$_="@F"||next;s/ *$//;$#O=()=/ [^. ]/g if s/(.{57}).{4,}/$1.../;$O[-1]=~y/ //d;print~~@F,":	$_
$v/$t:	@O
"