Interlinear

Score: 228.27 (pass)

#!perl -0
for(<>=~/[^.]+/g){my(@r,$p,$t,$v);$t+=@b=/\w/g,$v+=$@=y/aeiouyAEIOUY//."/".@b,$p.="$_ ".' 'x(3-tr// /c),$j=push@r,$_|"$@"for/\S+/g;$_=$p;s/ +$//;s/(.{57})...+/$1../;$#r=(()=/\w+/g)-1;"@r"=~/ *$/;$t&&print"$j:	$_.
$v/$t:	$`
"}

Score: 228.35 (pass)

#!perl -0
for(<>=~/[^.]+/g){my(@r,$p,$t,$v);$t+=@a=/\w/g,$v+=$@=y/aeiouyAEIOUY//."/".@a,$p.="$_ ".' 'x(3- y// /c),$i=push@r,$_|"$@"for/\S+/g;$_=$p;s/ +$//;s/(.{57})...+/$1../;$#r=(()=/\w+/g)-1;"@r"=~/ *$/;$t&&print"$i:	$_.
$v/$t:	$`
"}

Score: 238.33 (pass)

#!perl -0
for(<>=~/[^.]+/g){my(@r,$p,$t,$v);$_.=' 'x(3-length),$t+=@a=/\w/g,$v+=$@=y/aeiouyAEIOUY//."/".@a,$p.="$_ ",y// /c,$i=push@r,$_|"$@"for/\S+/g;$_=$p;s/ +$//;s/(.{57})...+/$1../;$#r=(()=/\w+/g)-1;"@r"=~/ *$/;$t&&print"$i:	$_.
$v/$t:	$`
"}

Score: 241.32 (pass)

#!perl -0
for(<>=~/[^.]+/g){my(@r,$p,$t,$v);$_.=' 'x(3-length),$t+=$e=()=/\w/g,$v+=$@=y/aeiouyAEIOUY//."/$e",$p.="$_ ",s/./ /g,$i=push@r,$_|"$@"for/\S+/g;$_=$p;s/ +$//;s/(.{57})...+/$1../;$#r=(()=/\w+/g)-1;"@r"=~/ *$/;$t&&print"$i:	$_.
$v/$t:	$`
"}

Score: 253.32 (pass)

#!perl -0
for(<>=~/[^.]+/g){my(@r,$p,$t,$v);$_.=' 'x(3-length),$t+=$e=()=/\w/g,$v+=$@=y/aeiouyAEIOUY//."/$e",$@.=' 'x(y///c-length$@),$p.="$_ ",$i=push@r,$@for/\S+/g;$_=$p;s/ +$//;s/(.{57})...+/$1../;$#r=(()=/\w+/g)-1;"@r"=~/ *$/;$t&&print"$i:	$_.
$v/$t:	$`
"}

Score: 256.30 (pass)

#!perl -0
for(<>=~/[^.]+/g){my(@r,$p,$t,$v);for(/\S+/g){$_.=' 'x(3-length);$t+=$e=()=/\w/g;$v+=$f=y/aeiouyAEIOUY//."/$e";$f.=' 'x(y///c-length$f);$p.="$_ ";$i=push@r,$f}$_=$p;s/ +$//;s/(.{57})...+/$1../;$#r=(()=/\w+/g)-1;"@r"=~/ *$/;$t&&print"$i:	$_.
$v/$t:	$`
"}

Score: 262.29 (pass)

#!perl -0
for(<>=~/[^.]+/g){my(@r,$p,$t,$v);for(/\S+/g){$_.=' 'x(3-length);$t+=$e=()=/\w/g;$v+=$f=y/aeiouyAEIOUY//."/$e";$f.=' 'x(y///c-length$f);$p.="$_ ";$i=push@r,$f}$_=$p;s/ +$//;s/(.{57})...+/$1../;$#r=(()=/\w+/g)-1;"@r"=~/ *$/;$r=$`;$t&&print"$i:	$_.
$v/$t:	$r
"}

Score: 266.27 (fail)

#!perl -0
for(<>=~/[^.]+/g){my(@r,$p,$t,$v);for(/\S+/g){$_.=' 'x(3-length);$t+=$e=()=/\w/g;$v+=$f=y/aeiouyAEI//."/$e";$f.=' 'x(y///c-length$f);$p.="$_ ";$i=push@r,$f}$_=$p;s/ +$//;/(.{57}).../and$_="$1..";$#r=(()=/\w+/g)-1;$r="@r";$r=~s/ +$//;$t&&print"$i:	$_.
$v/$t:	$r
"}

Score: 269.29 (pass)

This one has all the vowels... lower and upper. :)

#!perl -0
for(<>=~/[^.]+/g){my(@r,$p,$t,$v);for(/\S+/g){$_.=' 'x(3-length);$t+=$e=()=/\w/g;$v+=$f=y/aeiouyAEIOUY//."/$e";$f.=' 'x(y///c-length$f);$p.="$_ ";$i=push@r,$f}$_=$p;s/ +$//;/(.{57}).../and$_="$1..";$#r=(()=/\w+/g)-1;$r="@r";$r=~s/ +$//;$t&&print"$i:	$_.
$v/$t:	$r
"}

Score: 270.25 (fail)

#!perl -0
for(<>=~/[^.]+/g){my(@r,$p,$t,$v);for(/\S+/g){$_.=' 'x(3-length);$t+=$e=()=/\w/g;$v+=$f=y/aeiouyAEI//."/$e";$f.=' 'x(length()-length$f);$p.="$_ ";$i=push@r,$f}$_=$p;s/ +$//;/(.{57}).../and$_=$1.'..';@n=/\w+/g;$#r=@n-1;$r="@r";$r=~s/ +$//;$t&&print"$i:	$_.
$v/$t:	$r"}

Score: 271.25 (fail)

#!perl -0
for(<>=~/[^.]+/g){my(@r,$p,$t,$v);for(/\S+/g){$_.=' 'x(3-length);$t+=$e=()=/\w/g;$v+=$f=y/aeiouyAEI//."/$e";$f.=' 'x(length()-length$f);$p.="$_ ";$i=push@r,$f}$_=$p;s/ +$//;/(.{57}).../and$_=$1.'..';@n=/\w+/g;$#r=@n-1;$r="@r";$r=~s/ +$//;$t&&print"$i:	$_.
$v/$t:	$r
"}

Score: 277.26 (fail)

#!perl -0
for(grep/\S/,<>=~/[^.]+/g){my(@r,$p,$t,$v);for(/\S+/g){$_.=' 'x(3-length);$t+=$e=()=/\w/g;$v+=$f=y/aeiouyAEI//."/$e";$f.=' 'while length>length$f;$p.="$_ ";$i=push@r,$f}$_=$p;s/ +$//;/(.{57}).../and$_=$1.'..';@n=/\w+/g;$#r=@n-1;$r="@r";$r=~s/ +$//;print"$i:	$_.
$v/$t:	$r
"}

Score: 283.25 (fail)

#!perl -0
for(grep/\S/,<>=~/[^.]+/g){my(@r,$p,$t,$v);for(/\S+/g){$_.=' 'x(3-length);$t+=$e=()=/\w/g;$v+=$f=y/aeiouyAEI//."/$e";$f.=' 'while length>length$f;$p.="$_ ";$i=push@r,$f}$p=~s/ +$//;$p=~/(.{57}).../and$p=$1.'..';@n=$p=~/\w+/g;$#r=@n-1;$r="@r";$r=~s/ +$//;print"$i:	$p.
$v/$t:	$r
"}

Score: 296.25 (fail)

#!perl -0
sub v{y/aeiouyAEI//}for(grep/\S/,<>=~/[^.]+/g){my(@r,$i,$p,$t);for(/\S+/g){$t+=$e=()=/\w/g;$_.=' 'x(3-length);$f=v."/".$e;$f.=' 'while length>length$f;$p.="$_ ";$i=push@r,$f}$p=~s/ +$//;59

Score: 305.27 (pass)

#!perl -0
sub v{y/aeiouyAEIOUY//}$_=<>;for(grep/\S/,/[^.]+/g){my(@r,$i,$p,$t);for(/\S+/g){$t+=$e=()=/\w/g;$f=v."/".$e;$_.=' 'x(3-length);$f.=' 'while length>length$f;$p.="$_ ";push@r,$f;$i++}$p=~s/ +$//;$p=~s/(.{57}).*/$1../ if 59

Score: 327.27 (pass)

#!perl -0
sub v{y/aeiouyAEIOUY//}sub l{length(pop||$_)}$_=<>;s/\s+$//;for(/[^.]+/g){my(@r,$i,$p,$t);for(/\S+/g){$t+=$e=()=/\w/g;$f=v."/".$e;$b=l>l($f)?l:l$f;$_.=' 'while$b>l;$f.=' 'while$b>l$f;$p.="$_ ";push@r,$f;$i++}$p=~s/ +$//;$p=~s/(.{57}).*/$1../ if 59

Score: 331.28 (pass)

It's ugly and long but it's a start... although a slow start. :(

#!perl
sub v{y/aeiouyAEIOUY//}sub l{length(pop||$_)}$_=join'',<>;s/\s+$//;for(/[^.]+/g){my(@r,$i,$p,$t);for(/\S+/g){$t+=$e=()=/\w/g;$f=v."/".$e;$b=l>l($f)?l:l$f;$_.=' 'while$b>l;$f.=' 'while$b>l$f;$p.="$_ ";push@r,$f;$i++}$p=~s/ +$//;$p=~s/(.{57}).*/$1../ if 59