Interlinear

Score: 12.20 (fail)

#!perl -ap056
$_|='

Score: 159.35 (pass)

Uses \r to make entry look shorter than it is. (The only way to get below 160 I've discovered this far. :)

#!perl -ap056
@f=map{$_|=$:^$:;$"x+y|| -z|c|y|youYOUaiIEeA||.'/'.s|\w|$&|g}$_,@F;s,(.{57})..+\w.*,$1...,,$#f=@R=/\w\S*/g,$_=@F." $_

@f

"if$_="@F";s; +(.*?) *
;:	$1;g

Score: 160.35 (pass)

#!perl -ap056
@f=map{$_|=$:^$:;$"x+y|| -z|c|y|youYOUaiIEeA||.'/'.s|\w|$&|g}$_,@F;s,(.{57})..+\w.*,$1...,,$#f=@R=/\w\S*/g,$_=@F." $_
@f
"if$_="@F";s; +(.*?) *$;:	$1;mg

Score: 166.27 (fail)

This was my attempt to generate better score using compression. It failed. It became something greater, my last, best hope to submit ugliest entry in the course.

#!perl -ap056
$_=pack"u$",'Z]q?QD-x=.ּ]Oc3	1ݶy$30B8;bO0OaÂhObB!?T&	;h)rZ+';y/2-Z/:-@7 5Fa-}/;eval

Score: 166.37 (pass)

#!perl -ap056
@G=map{$_|=$:^$:;' 'x y!! -~!c|y?aeiouyAEIOUY??."/".s/\w/$&/g}$_,@F;$_="@F";s/(.{57})...+\S.*/$1.../;$#G=@x=/[^ .]+/g;$_=@F." $_@G"if@F;s/ +(.*?) */:	$1
/g

Score: 169.25 (pass)

This is longer version of entry that got refused due to platform specific differences in pack"u". Hopefully this is the ugliest *functioning* entry submitted. ;)

#!perl -ap056
$_=pack+u,'YXx_UaԽ=$9@k2zhC-N	!?}
ht%? %"=_1+>@';y/1-Z/7 9-@5Fa-}/;eval

Score: 177.32 (pass)

#!perl -ap056
@G=map{y?aeiouyAEIOUY??."/".s/\w/$&/g|' 'x y///c}$_,@X=map{sprintf"%-3s",$_}@F;$_="@X";s/(.{57})...+\S.*/$1.../;$#G=split/ +\.*/;$_=@X." $_@G"if@F;s/\s+(.*?) */:	$1
/g

Score: 177.32 (pass)

#!perl -ap056
@G=map{y?aeiouyAEIOUY??."/".s/\w/$&/g|' 'x y///c}$_,@X=map{sprintf"%-3s",$_}@F;$_="@X";s/(.{57})...+\S.*/$1.../;$#G=split/ +\.*/;$_=@X." $_@G"if@F;s/\s+(.*?) */:	$1
/g

Score: 188.30 (fail)

#!perl -ap056
@G=map{sprintf"%-${\y///c}s",y?aeiouyAEIOUY??."/".s/\w/$&/g}$_,@X=map{sprintf"%-3s",$_}@F;$_="@X";s/(.{57})...+\S.*/$1.../;$#G=split/ +\.*/;$_=@X." $_@G"if@F;s/\s+(.*?) */: $1
/g

Score: 196.29 (pass)

Finally below 200.

#!perl -ap056
@X=map{sprintf"%-3s",$_}@F;@G=map{sprintf"%-${\y///c}s",y/aeiouyAEIOUY//."/".s/\w/$&/g}($_="@X"),@X;s/(.{57})...+\S.*/$1.../g;$#G=split/ +\.*/;$_=($x=@X)." $_@G"if@F;s/\s+(.*?) */:	$1
/g

Score: 203.29 (pass)

#!perl -ap056
if((@X=map{sprintf"%-3s",$_}@F),($_="@X")){@G=map{sprintf"%-".y///c."s",y/aeiouyAEIOUY//."/".s/\w/$&/g}$_,@X;s/(.{57})...+\S.*/$1.../g;$#G=split/\s+|\./;$_=($x=@X)." $_@G";s/\s+(.*?) */:	$1
/g}

Score: 245.20 (pass)

First solution. Seems a little bit redundant, let's see how much I can optimize this later on...

#!perl -an056
if(@F){@X=map{sprintf"%-3s",$_}@F;$_="@X";s/(.{57})(.{3,})\S/$1	$2/g;@Z=split(/	.*$| (?=\S)/,$_);@G=map{$r=s/\w/\l$&/g;sprintf"%-".y///c."s",y/aeiouy//."/$r"}$_,@X;$#G=@Z;$_=($x=@X)." @Z".(/	/?"...":$Q)."
@G
";s/\s+(.*?) *
/:	$1
/g;print}