Interlinear

Score: 197.23 (pass)

finally under the magic 200, yay!

#!perl -ap056
$V=$T=0;@G=map{$V+=$v=y/aeiouy//,$T+=$t=s/\w/$&/g;sprintf"%-*s",y///c,"$v/$t"}map{$_.=$"until/\.$|...+/;lc}@F;$_="@F",s/(.{57})....+/$1.../;$_=@F.":	$_
$V/$T:	@G[0..$#H]
"if@H=/\w+/g;s/ +$//

Score: 204.22 (pass)

#!perl -ap056
$V=$T=0;@G=map{$V+=$v=y/aeiouy//,$T+=$t=s/\w/$&/g;sprintf"%-*s",y///c,"$v/$t"}map{$_=/\.$|...+/?$_:pack'A3',$_;lc}@F;$_="@F",s/(.{57})....+/$1.../;$_=@F.":	$_
$V/$T:	@G[0..$#H]
"if@H=/\w+/g;s/ +$//

Score: 217.22 (pass)

#!perl -lan056
$_="@F",s/(.{57})...+/$1../,@_=/\w+/g,$_="$n:	$_.
$V/$T:	@G[0..$#_]",s/ +$//,print if$T=0,$V=$n=@F,@G=map{$V+=$v=y/aeiouy//,$T+=$t=s/\w/$&/g;sprintf"%-*s",y///c,"$v/$t"}map{$_=!--$V|/...+/?$_:pack'A3',$_;lc}@F

Score: 220.21 (pass)

yet another little break. still hoping for the big one.

#!perl -lan056
$_="@F",s/(.{57})...+/$1../,@_=/\w+/g,$_="$n:	$_.
$V/$T:	@G[0..$#_]",s/ +$//,print if$V=$T=0,$m=$n=@F,@G=map{$V+=$v=y/aeiouy//,$T+=$t=s/\w/$&/g;sprintf"%-*s",y///c,"$v/$t"}map{$_=!--$m|/...+/?$_:pack'A3',$_;lc}@F

Score: 223.21 (pass)

#!perl -lan056
$_="@F",s/(.{57})...+/$1../,@_=/\w+/g,$_="$n:	$_.
$V/$T:	@G[0..$#_]",s/ +$//,print if$V=$T=0,$m=$n=@F,@G=map{$_=lc,$V+=$v=y/aeiouy//,$T+=$t=s/\w/$&/g;sprintf"%-*s",y///c,"$v/$t"}map{$_=!--$m|/...+/?$_:pack'A3',$_}@F

Score: 228.23 (pass)

#!perl -lan056
$_="@F",s/(.{57})...+/$1../,@_=/\w+/g,$_="$n:	$_.
$V/$T:	@G[0..$#_]",s/ +$//,print if$V=$T=0,$m=$n=@F,@G=map{$_=lc,$V+=$v=y/aeiouy//,$T+=$t=s/\w/$&/g;pack'A'.(/...+/?y///c:3),"$v/$t"}map{$_=!--$m|/...+/?$_:pack'A3',$_}@F

Score: 232.23 (pass)

little more than 2 this time. still a long way to go :-(

#!perl -lan056
$_="@F",s/(.{57})...+/$1../,@_=/[-\w']+/g,$_="$n:	$_.
$V/$T:	@G[0..$#_]",s/ +$//,print if$V=$T=0,$m=$n=@F,@G=map{$_=lc,$V+=$v=y/aeiouy//,$T+=$t=s/\w/$&/g;pack'A'.(/...+/?y///c:3),"$v/$t"}map{$_=!--$m|/...+/?$_:pack'A3',$_}@F

Score: 238.23 (pass)

2 chars at a time :-)

#!perl -lan056
$_="@F",s/(.{57})...+/$1../,@_=/[-\w']+/g,($g="@G[0..$#_]")=~s/ +$//,print"$n:	$_.
$V/$T:	$g"if$V=$T=0,$m=$n=@F,@G=map{$_=lc,$V+=$v=y/aeiouy//,$T+=$t=s/\w/$&/g;pack'A'.(/...+/?y///c:3),"$v/$t"}map{$_=!--$m|/...+/?$_:pack'A3',$_}@F

Score: 240.22 (pass)

#!perl -lan056
$_="@F",s/(.{57})...+/$1../,@_=/[-\w']+/g,@G=@G[0..$#_],$G[-1]=~s/ +//,print"$n:	$_.
$V/$T:	@G"if$V=$T=0,$m=$n=@F,@G=map{$_=lc,$V+=$v=y/aeiouy//,$T+=$t=s/\w/$&/g;pack'A'.(/...+/?y///c:3),"$v/$t"}map{$_=!--$m|/...+/?$_:pack'A3',$_}@F

Score: 242.22 (pass)

Please ignore my previous submission, which scored 250 (probably due to the TAB char converted to spaces during copy-n-paste). Hope this one will be ok.

#!perl -lan056
map($_=/...+/?$_:pack('A3',$_),@F[-@F..-2]),$_="@F",s/(.{57})...+/$1../,@_=/[-\w']+/g,$V=$T=0,@F=(map{$_=lc,$V+=$v=y/aeiouy//,$T+=$t=s/\w/$&/g;pack'A'.(/...+/?y///c:3),"$v/$t"}@F)[0..$#_],$F[-1]=~s/ +//,print"$n:	$_.
$V/$T:	@F"if$n=@F

Score: 249.21 (pass)

Hope the lines don't get broken up in wrong places.

#!perl -ln056
s/^ +| +$//g,($S=$_)=~s/(.{57})...+/$1../,$V=$T=0,s!\S+ *!$_=lc$&,$V+=$v=y/aeiouy//,$T+=$t=s/\w/$&/g,pack'A'.(/...+/?y///c:3),"$v/$t"!eg,@_=$S=~/\w+/g,print"$n:	$S.
$V/$T:	",(/ *\S+/g)[0..$#_]if s/\s+/ /g,$n=s!\S+!$&=~/...+/?$&:pack'A3',$&!eg

Score: 250.22 (fail)

#!perl -lan056
map($_=/...+/?$_:pack('A3',$_),@F[-@F..-2]),$_="@F",s/(.{57})...+/$1../,@_=/[-\w']+/g,$V=$T=0,@F=(map{$_=lc,$V+=$v=y/aeiouy//,$T+=$t=s/\w/$&/g;pack'A'.(/...+/?y///c:3),"$v/$t"}@F)[0..$#_],$F[-1]=~s/ +//,print"$n:        $_.
$V/$T:  @F"if$n=@F