Interlinear

Score: 175.31 (pass)

#!perl -056npa
sub c{y/aeiouyAEIOUY//."/".y/a-zA-Z0-9//}$_=(@c=map{$_.=$"x($p=/\./?0:length(c)-length);c.$"x-$p}@F)?@F.":	@F
".c.":	@c
":"";s/(	.{57}).{4,}(
.*	.{0,56}\S+).*/$1...$2/

Score: 175.31 (pass)

#!perl -056npa
sub c{y/aeiouyAEIOUY//."/".y/a-zA-Z0-9//}$_=(@c=map{$_.=$"x($p=/\./?0:length(c)-length);c.$"x-$p}@F)?@F.":	@F
".c.":	@c
":"";s/(	.{57}).{4,}(
.*	.{0,56}\S+).*/$1...$2/

Score: 176.30 (pass)

0.01 points better, but not good enough

#!perl -056npa
sub c{y/aeiouyAEIOUY//."/".y/a-zA-Z0-9//}$_=(@c=map{$p=/\./?0:length(c)-length;$_.=$"x$p;c.$"x-$p}@F)?@F.":	@F
".c.":	@c
":"";s/(	.{57}).{4,}(
.*	.{0,56}\S+).*/$1...$2/

Score: 176.31 (pass)

#!perl -056npa
sub c{y/aeiouyAEIOUY//."/".y/a-zA-Z0-9//}$_=(@c=map{$p=/\./?0:length(c)-length;$_.=$"x$p;c.$"x-$p}@F)?@F.":	@F
".c.":	@c
":"";s/(	.{57})....+(
.*	.{0,56}\S+).*/$1...$2/

Score: 200.30 (pass)

#!perl
sub c{y/aeiouyAEIOUY//."/".y/a-zA-Z0-9//}$/='.';map{@c=map{$p=/\./?0:length(c)-length;$_.=$"x$p;c.$"x-$p}@w=split;$_="@w
".c.":	@c";s/^(.{57})....+/$1.../&&s/(	.{0,56}\S+).*/$1/;@w&&print@w.":	$_
"}<>

Score: 221.28 (pass)

#!perl
sub c{y/aeiouyAEIOUY//."/".y/a-zA-Z0-9//}$/='.';map{@c=map{$p=length()-length c;$_.=$"x-$p;c.$"x$p}@w=split;$c=c.":	@c";$_=@w.":	@w";s/ *$//;s/(	.{57})....+/$1.../s&&$c=~s/(	.{56}\S*).*/$1/;$_.="
$c
";s/ *$//;@w&&print}<>

Score: 270.29 (pass)

#!perl
sub c{y/aeiouyAEIOUY//."/".y/a-zA-Z0-9//}$_=join"",<>;s/\s+/ /gs;s/^\s+//;map{@w=split/ /;$x=c;$c=join" ",map{$p=length()-length c;$_.=" "x-$p;c." "x$p}@w;$_=join" ",@w;s/ *$//;s/^(.{57})...+/$1../&&$c=~s/^(.{56}\S*).*/$1/;$c=~s/ *$//;print@w.":	$_.
$x:\t$c
"}split/\. /

Score: 275.27 (fail)

#!perl
sub c{y/aeiouyAEIOUY//."/".y/a-zA-Z0-9//}$_=join"",<>;s/\s+/ /gs;s/^\s+//s;map{@w=split/ /;$x=c;$c=join" ",map{c." "x(length()-length c)}@w;s/(?<= )(.) /$1   /g;s/(?<= )(.\S) /$1  /g;s/^(.{57})...+/$1../&&$c=~s/^(.{56}\S*).*/$1/;$c=~s/ *$//;print@w.":	$_.
$x:	$c
"}split/\. /

Score: 275.27 (fail)

#!perl
sub c{y/aeiouyAEIOUY//."/".y/a-zA-Z0-9//}$_=join"",<>;s/\s+/ /gs;s/^\s+//s;map{@w=split/ /;$x=c;$c=join" ",map{c." "x(length()-length c)}@w;s/(?<= )(.) /$1   /g;s/(?<= )(.\S) /$1  /g;s/^(.{57})...+/$1../&&$c=~s/^(.{56}\S*).*/$1/;$c=~s/ *$//;print@w.":	$_.
$x:	$c
"}split/\. /

Score: 286.38 (pass)

#!perl
sub o{y/aeiouyAEIOUY//."/".y/a-zA-Z0-9//}$_=join"",<>;s/\s+/ /gs;s/^\s*//s;map{@e=split/ /;$i=o;$o=join" ",map{o." "x(length()-length(o))}@e;s/(?<= )(\S) /$1
  /g;s/(?<= )(\S\S) /$1  /g;s/^(.{57})...+/$1../&&$o=~ s/^(.{56}\S*).*/$1/;$o=~ s/ *$//;print@e.":\t$_.\n$i:\t$o\n"}split/\.\s*/