Interlinear

Score: 189.23 (pass)

#!perl -anp056
@F=($_="@F",@F);s/\S+ /$&|"\0"x4/ge;y/\0/ /;@F=map{$_=lc;" "x y///c|y/aeiouy//."/".s/\w//g}@F;$_&&="$#F:	$_
@F
";s/(
\S*) +/$1:	/;s/(	.{57}).{4,}(
.*:.+?.{56}) .*/$1...$2
/s;s/ +$//

Score: 192.23 (pass)

#!perl -anp056
@F=($_="@F",@F);s/\S+ /$&|"\0"x4/ge;y/\0/ /;map{$_=lc;$_=" "x y///c|y/aeiouy//."/".s/\w//g}@F;($g="@F")=~s/ +/:	/;$_&&="$#F:	$_
$g
";s/(	.{57}).{4,}(
.*:.+?.{56}) .*/$1...$2
/s;s/ +$//

Score: 200.23 (pass)

A new trick. Didn't gain me as much as I hoped...

#!perl -anp056
@F=($_="@F",@F);s/\S+ /$&|"\0"x4/ge;y/\0/ /;map{$_=lc;$_=" "x y///c|y/aeiouy//."/".s/\w//g}@F;$g="@F";$g=~s/ +/:	/;s/(.{57}).{4,}/$1.../&&$g=~s/(:.+?.{56}) +.*/$1/;$_="$#F:	$_
$g
"if$_;s/ +$//

Score: 206.21 (pass)

#!perl -anp056
$p=$q=0;$_="@F";map{$_=lc;$p+=$c=y/aeiouy//;$q+=$d=s/\w/ /g;y// /c;$_|="$c/$d"}@F;$g="@F";s/\S+ /$&|"\0"x4/ge;y/\0/ /;s/(.{57}).{4,}/$1.../&&$g=~s/(.{56}) +.*/$1/;$_=@F.":	$_
$p/$q:	$g
"if$q;s/ +$//

Score: 211.21 (pass)

Slowly getting better now.

#!perl -anp056
$p=$q=0;$_="@F";map{$_=lc;$p+=$c=y/aeiouy//;$q+=$d=s/\w/ /g;y// /c;$_|="$c/$d"}@F;$g="@F";s/\S+ /$&|"\0"x4/ge;y/\0/ /;s/(.{57}).{4,}/$1.../&&$g=~s/(.{56}) +.*/$1/;$g=~s/ +$//;$_=@F.":	$_
$p/$q:	$g
"if/./

Score: 223.21 (pass)

A little better. A far way to go.

#!perl -an056
$p=$q=0;$_="@F";map{$_=lc;$p+=$c=y/aeiouy//;$q+=$d=y/a-z0-9//;y|| |c;$_|="$c/$d"}@F;s/(\S+) /$&." "x(3-length($1))/ge;$g="@F";s/(.{57}).{4,}/$1.../&&$g=~s/(.{56}) +.*/$1/;$g=~s/ +$//;print@F.":\t$_
$p/$q:\t$g
"if/\S/

Score: 234.21 (pass)

Aaargh, wrapping!!!

#!perl -an056
$p=$q="";$_="@F";map{$_=lc;$p+=$c=y/aeiouy//;$q+=$d=y/a-z0-9//;s|.| |g;$_|="$c/$d"}@F;s/(\S+)( +)/$&." "x(3-length($1))/ge;$g="@F";s/(.{57}).{4,}/$1.../&&$g=~s/\S+/$-[0]>56?"":$&/ge;$g=~s/ +$//;print@F.":\t$_
$p/$q:\t$g
"if/\S/