Interlinear

Score: 230.32 (pass)

#!perl -nla0056
if(@F){y/
/ /;s/\S+/A.(($!=length$&)<3?4:$!+1)/ge;s/\d+$/*/;print@F.":	",map{s/(.{57})....+
((.*?[^	]{56}) ..+|(.*))/$1...
$3$4/;s/ *$//;$_}pack($_,@F).".
".pack"A*$_",map{y/aeiouyAEIUOY//."/".s/\w//g.(":	"x/#/)}"@F#",@F}

Score: 235.32 (pass)

#!perl -nla0056
if(@F){y/
/ /;s/\S+/A.length$&/ge;s/\d+/$&<3?4:$&+1/ge;s/\d+$/*/;print@F.":	",map{s/(.{57})....+
((.*?[^	]{56}) ..+|(.*))/$1...
$3$4/;s/ *$//;$_}pack($_,@F).".
".pack"A*$_",map{y/aeiouyAEIUOY//."/".s/\w//g.(":	"x/#/)}"@F#",@F}

Score: 235.32 (pass)

#!perl -nla0056
if(@F){y/
/ /;s/\S+/A.length$&/ge;s/\d+/$&<3?4:$&+1/ge;s/\d+$/*/;print@F.":	",map{s/(.{57})....+
((.*?[^	]{56}) ..+|(.*))/$1...
$3$4/;s/ *$//;$_}pack($_,@F).".
".pack"A*$_",map{y/aeiouyAEIUOY//."/".s/\w//g.(":	"x/#/)}"@F#",@F}

Score: 236.33 (pass)

#!perl -nla0056
if(@F){y/
/ /;s/\S+/A.length$&/ge;s/\d+/$&<3?4:$&+1/ge;s/\d+$/*/;print@F.":	",map{s/(.{57})....+
((.*?[^	]{56}) ..+|(.*))/$1...
$3$4/;s/ *$//;$_}pack($_,@F).".
".pack"A*$_",map{y/aeiouyAEIUOY//."/".s/\w//gi.(":	"x/#/)}"@F#",@F}

Score: 239.32 (pass)

#!perl -nla0056
if(@F){y/
/ /;s/\S+/A.length$&/ge;s/\d+/$&<3?4:$&+1/ge;s/\d+$/*/;print@F.":	",(map{$s=s/(.{57})...+/$1../;$_}pack$_,@F),".
",map{$s&&s/([^	]{56}) ..+/$1/;s/ *$//;$_}pack"A*$_",map{y/aeiouyAEIUOY//."/".s/\w//gi.(":	"x/#/)}"@F#",@F}

Score: 240.32 (pass)

#!perl -nla0056
if(@F){y/
/ /;s/\S+/A.length$&/ge;s/\d+ /$&<3?4:$&+1/ge;s/\d+$/*/;print@F.":	",(map{$s=s/(.{57})...+/$1../;$_}pack$_,@F),".
",map{$s&&s/([^	]{56}) ..+/$1/;s/ *$//;$_}pack"A*$_",map{y/aeiouyAEIUOY//."/".s/\w//gi.(":	"x/#/)}"@F#",@F}

Score: 243.26 (pass)

#!perl -nla0056 
if($h=pop@F){my$f;$f.="%-".(length>2?length:3)."s "for@F;push@F,$h;print@F.":	",map{$s=s/(.{57})....+/$1.../;$_}sprintf"$f%s.",@F;map{$s&&s/(	.*?.{56}) ..+/$1/;s/ *$//;print}sprintf "%s:	$f%s",map{y/aeiouyAEIUOY//."/".s/\w//gi}$_,@F}

Score: 245.26 (pass)

#!perl -nla0056 
if($h=pop@F){my$f;map$f.="%-".(($l=length)<3?3:$l)."s ",@F;print push(@F,$h),":	",map{$s=s/(.{57})....+/$1.../;$_}sprintf"$f%s.",@F;map{$s&&s/(	.*?.{56}) ..+/$1/;s/ *$//;print}sprintf "%s:	$f%s",map{y/aeiouyAEIUOY//."/".s/\w//gi}$_,@F}

Score: 273.34 (pass)

#!perl -nla0056 
if($h=pop@F){my$f;map$f.="%-".(($l=length)<3?3:$l)."s ",@F;push@F,$h;print@F.":	",map({$s=s/(.{57})...+/$1../;$_}sprintf"$f%s",@F),".";$_=sprintf y/aeiouyAEIUOY//."/".s/\w//gi.":	$f%s",map{y/aeiouyAEIUOY//."/".s/\w//gi}@F;s/(	.*?.{56}) ..+/$1/ if$s;s/ *$//;print}

Score: 274.34 (pass)

#!perl -nla0056 
if($h=pop@F){my$f;map$f.="%-".(($l=length)<3?3:$l)."s ",@F;push@F,$h;print@F.":\t",map({$s=s/(.{57})...+/$1../;$_}sprintf"$f%s",@F),".";$_=sprintf y/aeiouyAEIUOY//."/".s/\w//gi.":	$f%s",map{y/aeiouyAEIUOY//."/".s/\w//gi}@F;s/(	.*?.{56}) ..+/$1/ if$s;s/ *$//;print}

Score: 285.48 (pass)

#!perl -nla0056
y/
 / /s;$v=y/aeiouyAEIUOY//."/".y/a-zA-Z0-9//;s/(^| )\S/ @/g;y/ .@/

Score: 288.46 (fail)

#!perl -nla0056
y/
 / /s;$v=y/aeiouyAEIUOY//."/".y/a-zA-Z0-9//;s/(^| )\S/ @/g;y/ .@/

Score: 302.49 (pass)

#!perl
$/=".";map{chop;y/
 / /s;split;$v=y/aeiouyAEIUOY//."/".y/a-zA-Z0-9//;s/(^| )\S/ @/g;y/ .@/

Score: 307.48 (fail)

#!perl -nla0056
y/
 / /s;$v=y/aeiouyAEIUOY//."/".y/a-zA-Z0-9//;s/(^| )\S/ @/g;y/ .@/

Score: 308.48 (pass)

#!perl
$/=".";map{chop;y/
 / /s;split;$v=y/aeiouyAEIUOY//."/".y/a-zA-Z0-9//;s/^/ /;s/\s\S/ @/g;y/ .@/

Score: 318.48 (fail)

This is ugly :)

#!perl
$/=".";map{chop;y/
 / /s;split;$v=y/aeiouyAEIUOY//."/".y/a-zA-Z0-9//;s/^/ /;s/\s\S/ @/g;y/ .@/

Score: 334.45 (pass)

#!perl
$/=".";map{y/
 / /s;split;$v=y/aeiouyAEIUOY//."/".y/a-zA-Z0-9//;s/^/ /;s/\s\S/ @/g;y/ .@/