Interlinear

Score: 305.34 (pass)

#!perl -n
map{$a.=" ",$b.=" "if$a;$f=length($a)-length$b;$a.=" "x-$f;$b.=" "x$f;$u+=$v=y*aeiouyAEIOUY**;$c+=$l=y*a-zA-Z0-9**;$w++;$a.=$_;$b.="$v/$l";/\./&&do{substr($a,57)="..."if 60

Score: 308.35 (fail)

#!perl -n
map{$a.=" ",$b.=" "if$a;$f=length($a)-length$b;$a.=" "x-$f;$b.=" "x$f;$u+=$v=y*aeiouyAEIOUY**;$c+=$l=y*a-zA-Z0-9**;$w++;$a.=$_;$b.="$v/$l";/\./&&do{substr($a,57)="..."if 60

Score: 322.33 (pass)

#!perl -n
map{$a.=" ",$b.=" "if$a;$f=length$b;$a.=" "x($f-length$a);$b.=" "x(-$f+length$a);$u+=$v=y*aeiouyAEIOUY**;$c+=$l=y*a-zA-Z0-9**;$w++;$a.=$_;$b.="$v/$l";if(/\./){length$a>60and substr($a,57)="...",$a=~/\w+\W+$/,$z=length$`,$b=~s/^(.{$z}\S*).*/$1/;print("$w:\t$a\n$u/$c:\t$b\n"),$a=$b=$c=$u=$w=""}}split/[^-\w;:'"()&\/.]+/i

Score: 330.34 (pass)

#!perl -n
map{$a.=" ",$b.=" "if$a;$f=length$b;$e=length($a.=" "x($f-length$a));$b.=" "x($e-$f);$u+=$v=y*aeiouyAEIOUY**;$c+=$l=y*a-zA-Z0-9**;$w++;$a.=$_;$b.="$v/$l";if(/\./){length$a>60and substr($a,57)="...",$a=~/\w+\W+$/,$z=length$`,$b=~s/^(.{$z}\S*).*/$1/;print("$w:\t$a\n$u/$c:\t$b\n"),$a=$b=$c=$u=$w=""}}/([-a-z0-9,;:'"\(\)&\/.]+)/gi