Interlinear

Score: 161.24 (pass)

#!perl -056ap
@c=map{s!$!$"x(3-/\./-pos)!e;$"x$-[0]|lc=~y/aeiouy//.'/'.s/\w/$&/g}$_,@F;$_="@F";s/(.{57}).{4,}/$1.../;s!.+!$#c:	$&
@c[0..s/[ .]+//g]
!;s/ +(.*?) *$/:	$1/

Score: 162.25 (fail)

#!perl -056ap
@c=map{s!$!$"x(3-/\./-pos)!e;$"x$-[0]|lc=~y/aeiouy//.'/'.s/\w/$&/g}$_,@F;$_="@F";s/(.{57}).{4,}/$1.../;$_&&=@F.":	$_
@c[0..s/[ .]+//g]
";s/ +(.*?) *$/:	$1/

Score: 162.25 (pass)

#!perl -056ap
@c=map{s!$!$"x(3-/\./-pos)!e;$"x$-[0]|lc=~y/aeiouy//.'/'.s/\w/$&/g}$_,@F;$_="@F";s/(.{57}).{4,}/$1.../;$_&&=@F.":	$_
@c[0..s/[ .]+//g]
";s/ +(.*?) *$/:	$1/

Score: 168.25 (pass)

#!perl -056ap
sub c{lc=~y/aeiouy//.'/'.s/\w/$&/g}@c=map$"x(s!$!$"x(3-/\./-pos)!e*y///c)|c,@F;$c=c;$_="@F";s/(.{57}).{4,}/$1.../;$_&&=@F.":	$_
$c:	@c[0..s/[ .]+//g-1]
";s/ +$//

Score: 172.25 (pass)

#!perl -056ap
sub c{lc=~y/aeiouy//.'/'.s/\w/$&/g}@c=map$"x(s!$!$"x(3-/\./-pos)!e*y///c)|c,@F;$c=c;$_="@F";pos=57;s/\G.{4,}//&&($#c=split)--^s/$/.../;$_&&=@F.":	$_
$c:	@c
";s/ +$//

Score: 173.23 (pass)

#!perl -056ap
sub c{lc=~y/aeiouy//.'/'.s/\w//g}@c=map$"x y///c|c,map$_.=$"x(3-/\./-length),@F;$c=c;$_="@F";s/(.{57}).{4,}/$1/&&($#c=split)--^s/$/.../;$_&&=@F.":	$_
$c:	@c
";s/ +$//

Score: 179.24 (pass)

#!perl -056ap
sub c{lc=~y/aeiouy//.'/'.s/\w//g}$c=c;$_="@F",s/(.{57}).{4,}/$1/&&($#c=split)--^s/$/.../,$\.=@F.":	$_
$c:	@c
"if@c=map$"x y///c|c,map$_.=$"x(3-/\./-length),@F;$\=~s/ +$//}{

Score: 187.24 (pass)

#!perl -056ap
sub c{lc=~y/aeiouy//.'/'.s/[^\W_]/$&/g}$c=c;$_="@F",s/(.{57}).{4,}/$1/&&($#c=split)--^s/$/.../,$\.=@F.":	$_
$c:	@c
"if@c=map{c|$"x y///c}map$_.=$"x(3-length)x!/\./,@F;$\=~s/ +$//}{

Score: 189.26 (pass)

#!perl -056ap
sub c{lc=~y/aeiouy//.'/'.y/a-zA-Z0-9//}$c=c;$_="@F",s/(.{57}).{4,}/$1.../&&($#c=-1+split' ',$1),$\.=@F.":	$_
$c:	@c
"if@c=map{c|$"x y///c}map$_.=$"x(3-length)x!/\./,@F}{$\=~s/ +$//mg

Score: 197.25 (pass)

#!perl -056lap
sub c{lc=~y/aeiouy//.'/'.y/a-zA-Z0-9//}$c=c;$_="@F",s/ *$/./,s/(.{57}).{4,}/$1.../&&($#c=-1+split' ',$1),$r.=@F.":	$_
$c:	@c
"if@c=map{c|$"x y///c}map$_.=$"x(3-length),@F}{s/ +$//mgfor$\=$r

Score: 201.26 (pass)

I hope the tabs are right :)

#!perl -056lap
sub c{lc=~y/aeiouy//.'/'.y/a-zA-Z0-9//}map({s/ *$/./,pos=57,s/\G.{4,}/.../&&($#c=-1+split' ',$`)}$t="@F"),$r.=@F.":	$t
".c.":	@c
"if@c=map{c|$"x y///c}map$_.=$"x(3-length),@F}{s/ +$//mgfor$\=$r

Score: 214.24 (pass)

more tabbing practice :)

#!perl -0p
sub c{lc=~y/aeiouy//.'/'.y/a-zA-Z0-9//}map{$n=split;@c=map{c|$"x y///c}map$_.=$"x(3-length),@_;s/ *$/./,s/(.{57}).{4,}/$1.../&&($#c=-1+split' ',$1)for$t="@_";$\.="$n:	$t
".c.":	@c
"}/(\S.*?)\./sg}{$\=~s/ +$//mg

Score: 227.32 (pass)

I need practice with the tabs :)

#!perl -0p
sub c{y/aeiouyAEIOUY//.'/'.y/a-zA-Z0-9//}$_=join'',map{$n=split;@c=map{c.$"x(y///c-length c)}map$_.=$"x(3-length),@_;s/ *$/./,s/(.{57}).{4,}/$1.../&&($#c=-1+split' ',$1)for$a="@_";"$n:	$a
".c.":	@c
"}/(\S.*?)\./sg;s/ +$//mg

Score: 236.32 (pass)

these tabs sure are a pain...

#!perl -0p
sub c{y/aeiouyAEIOUY//."/".(()=/[^\W_]/g)}$_=join'',map{$n=split;@c=map{c.$"x(y///c-length c)}map$_.=$"x(3-length),@_;$_[-1]=~y/ //d;($a="@_.")=~s/(.{57}).{4,}/$1.../&&splice@c,split' ',$1;"$n:	$a
".c.":	@c
"}/(\S.*?)\./sg;s/ +$//mg

Score: 246.30 (pass)

tabs test

#!perl -0p
sub c{y/aeiouyAEIOUY//."/".(()=/[^\W_]/g)}$_ x=/\./;s!\s*(.*?)\.\s*!$_=$1;$n=split;@c=map{c.$"x(y///c-length c)}map$_.=$"x(3-length),@_;$_[-1]=~y/ //d;($a="@_.")=~s/(.{57}).{4,}/$1.../;$#c=-1+split' ',$1;$c[-1]=~y/ //d;"$n:	$a
".c.":	@c
"!sge

Score: 295.29 (fail)

first shot...

#!perl -0p
sub c{y/aeiouyAEIOUY//."/".(()=/[^\W_]/g)}sub p{($t=c).$"x(y///c-length($t))}sub f{$_=pop;$n=split;$_.=$"x(3-length)for@_;@c=map{p}@_;$_[-1]=~y/ //d;$a="@_.";$a=~s/(.{57}).{4,}/$1.../ and@c=splice@c,0,~~split' ',$1;$c[-1]=~y/ //d;"$n:    $a
".c.":  @c
"}s/^[^.]*$//s||s/\s*(.*?)\.\s*/f$1/sge