Interlinear

Score: 200.24 (pass)

Changed the $c=@F ... print groupings

#!perl -na056
@n=map$s.$"x(y///c-length($s=y/aeiouy//.'/'.y/a-z0-9//)),map{$_.=$"x(3-length);lc}@F,$_;$_="@F";s/ $//;s/(.{57})....+/$1/and$#n=(split),$_.=$/x3;$#n--;$c=@F and$_="$c:	$_
$s:	@n
";s/ +$//;print

Score: 201.24 (pass)

The reorg of 'length' within map made $s match $u. Removed $u.

#!perl -na056
$c=@F;@n=map$s.$"x(y///c-length($s=y/aeiouy//.'/'.y/a-z0-9//)),map{$_.=$"x(3-length);lc}@F,$_;$_="@F";s/ $//;s/(.{57})....+/$1/and$#n=(split),$_.=$/x3;$#n--;$_="$c:	$_
$s:	@n
";s/ +$//;$c&&print

Score: 204.26 (pass)

change map block to map expr, removed space after 'map'

#!perl -na056
$c=@F;@n=map$s.$"x(y///c-length($s=$u=y/aeiouy//.'/'.y/a-z0-9//)),map{$_.=$"x(3-length);lc}@F,$_;$_="@F";s/ $//;s/(.{57})....+/$1/and$#n=(split),$_.=$/x3;$#n--;$_="$c:	$_
$u:	@n
";s/ +$//;$c&&print

Score: 205.26 (pass)

Only one extra space possible on last word in sentence, so s/ +$// becomes s/ $//

#!perl -na056
$c=@F;@n=map{$s.$"x(y///c-length($s=$u=y/aeiouy//.'/'.y/a-z0-9//))}map{$_.=$"x(3-length);lc}@F,$_;$_="@F";s/ $//;s/(.{57})....+/$1/and$#n=(split),$_.=$/x3;$#n--;$_="$c:	$_
$u:	@n
";s/ +$//;$c&&print

Score: 206.26 (pass)

Combined length($s) with the calculation of $s. Removed ;;

#!perl -na056
$c=@F;@n=map{$s.$"x(y///c-length($s=$u=y/aeiouy//.'/'.y/a-z0-9//))}map{$_.=$"x(3-length);lc}@F,$_;$_="@F";s/ +$//;s/(.{57})....+/$1/and$#n=(split),$_.=$/x3;$#n--;$_="$c:	$_
$u:	@n
";s/ +$//;$c&&print

Score: 208.26 (pass)

Saved 5 strokes by moving @n adjustments from a 'for@n' loop to map side-effects.

#!perl -na056
$c=@F;@n=map{$s=$u=y/aeiouy//.'/'.y/a-z0-9//;$s.$"x(y///c-length$s)}map{$_.=$"x(3-length);lc}@F,$_;$_="@F";s/ +$//;;s/(.{57})....+/$1/and$#n=(split),$_.=$/x3;$#n--;$_="$c:	$_
$u:	@n
";s/ +$//;$c&&print

Score: 213.25 (pass)

Removed = from the final statement in the map block.

#!perl -na056
$c=@F;$_.=$"x(3-length)for@F[0..@F-2];@n=map{$s=$u=y/aeiouy//.'/'.y/a-z0-9//;$s.$"x(y///c-length$s)}map lc,@F,$_;$_="@F";s/(.{57})....+/$1/and$#n=(split),$_.=$/x3;$#n--;$_="$c:	$_
$u:	@n
";s/ +$//;$c&&print

Score: 214.25 (pass)

#!perl -na056
$c=@F;$_.=$"x(3-length)for@F[0..@F-2];@n=map{$s=$u=y/aeiouy//.'/'.y/a-z0-9//;$s.=$"x(y///c-length$s)}map lc,@F,$_;$_="@F";s/(.{57})....+/$1/and$#n=(split),$_.=$/x3;$#n--;$_="$c:	$_
$u:	@n
";s/ +$//;$c&&print

Score: 217.25 (pass)

formline was a red herring, switching to s///&&chained_code.

#!perl -na056
$c=@F;$_.=$"x(3-length)for@F[0..@F-2];@n=map{$s=$u=y/aeiouy//.'/'.y/a-z0-9//;$s.=$"x(y///c-length$s)}map lc,@F,$_;$_="@F";s/(.{57})....+/$1/and$#n=(split)-1,$_.=$/x3or$#n--;$_="$c:	$_
$u:	@n
";s/ +$//;$c&&print

Score: 228.30 (pass)

#!perl -na056
$c=@F;$^A=$:='';$_.=$"x(3-length)for@F[0..@F-2];@n=map{$s=$u=y/aeiouy//.'/'.y/a-z0-9//;$s.=$"x(y///c-length$s)}map lc,@F,$_;formline'^'.'<'x56 .'...',"@F";$_=$^A;y/.//d;$#n=(split)-1;$_="$c:	$^A
$u:	@n
";s/ +$//;$c&&print

Score: 232.29 (pass)

#!perl -na056
$c=@F;$^A=$:='';$_.=$"x(3-length)for@F[0..@F-2];@n=map{$s=$u=y/aeiouy//.'/'.y/a-z0-9//;/$/;$s.=$"x($+[0]-length$s)}map lc,@F,$_;formline'^'.'<'x56 .'...',"@F";$_=$^A;y/.//d;$#n=(split)-1;$_="$c:	$^A
$u:	@n
";s/ +$//;$c&&print

Score: 234.27 (pass)

#!perl -na056
$c=@F;$^A=$:='';$_.=$"x(3-length)for@F[0..@F-2];@n=map{$s=$u=y/aeiouy//.'/'.y/a-z0-9//;/$/;$s.=$"x($+[0]-length$s)}map lc,@F,$_;formline'^'.'<'x56 .'...',"@F";$_=$^A;$#n=(split)-1-/ \.{3}$/;$_="$c:	$_
$u:	@n
";s/ +$//;$c&&print

Score: 236.30 (fail)

#!perl -na056
$c=@F;$^A=$:='';$_.=$"x(3-length)for@F[0..@F-2];@n=map{$s=$u=y/aeiouy//.'/'.y/a-z0-9//;$s.=$"x(y///c-length$s)}map lc,@F,$_;formline'^'.'<'x56 .'...',"@F";$_=$^A;y/.//d;$#n=(split)-1;$_="$c:     $^A
$u:     @n
";s/ +$//;$c&&print

Score: 272.31 (pass)

#!perl -na056
if($c=@F){$^A=$:='';$_.=$"x(3-length)for@F[0..@F-2];$h{$_}=$u=y/AEIOUYaeiouy//.'/'.y/A-Za-z0-9//for@F,lc;$h{$_}.=$"x(length($_)-length$h{$_})for@F;formline'^'.'<'x56 .'...',"@F";$_=$^A;$#F=split;$#F--;/ \.{3}$/&&$#F--;$z="@h{@F}";$z=~s/\s+$//;print"$c:	$_
$u:	$z
"}

Score: 286.27 (fail)

#!perl -na056
if(/\S/){$_.=$"x(3-length)for@F[0..$#F-1];$h{$_}=$u=y/AEIOUaeiouy//.'/'.y/A-Za-z0-9//for@F,$_;$h{$_}.=$"x(length($_)-length$h{$_})for@F;$_="@F";$c=@F;if(length>60){$#F--while length"@F[0..$#F-1]">55;$_="@F ";substr($_,57)='...'}s/\s+$//for$_,$h{$F[-1]};print"$c:	$_
$u:	@h{@F}
"}

Score: 287.27 (pass)

#!perl -na056
if(/\S/){$_.=$"x(3-length)for@F[0..$#F-1];$h{$_}=$u=y/AEIOUYaeiouy//.'/'.y/A-Za-z0-9//for@F,$_;$h{$_}.=$"x(length($_)-length$h{$_})for@F;$_="@F";$c=@F;if(length>60){$#F--while length"@F[0..$#F-1]">55;$_="@F ";substr($_,57)='...'}s/\s+$//for$_,$h{$F[-1]};print"$c:	$_
$u:	@h{@F}
"}