Anagrams

Score: 63.46 (pass)

#!perl
$_{_,sort/./g}=~s/.*/_$& $_/for sort<>;print/ (.*
)
/for sort%_

Score: 63.46 (pass)

#!perl
$_{_,sort/./g}=~s/.*/_$& $_/for sort<>;print/ (.*
)
/for sort%_

Score: 63.48 (pass)

#!perl
$_{1,sort/./g}=~s/.*/1$& $_/for sort<>;print/ (.*
)
/for sort%_

Score: 63.52 (pass)

#!perl
map$v{1,sort/./g}=~s/.*/1$& $_/,sort<>;print/ (.*
)
/for sort%v

Score: 64.52 (pass)

#!perl
map$v{1,sort/./g}=~s/.*/A$& $_/,sort<>;print/AA (.*
)/for sort%v

Score: 65.51 (pass)

#!perl
map$v{1,sort/./g}=~s/.*/A$& $_/,sort<>;print/AA (.*
)/gfor sort%v

Score: 69.49 (pass)

#!perl
map$v{1,sort/./g}.=$_,sort<>;$c[split].=@_>1&&"@_
"for sort%v;print@c

Score: 70.50 (pass)

#!perl
map$v{1,sort/./g}.=$_,sort<>;$c[split].="@_
"for sort%v;print@c[2..16]

Score: 75.48 (pass)

#!perl
map$v{join"",sort/./g}.=$_,sort<>;$c[split].="@_
"for sort%v;print@c[2..16]

Score: 77.43 (pass)

#!perl
map$v{join"",sort/./g}.=$_,sort<>;$c{s/
^/ /mg}.=$_ for sort%v;print@c{1..15}

Score: 82.41 (pass)

#!perl
map$v{join"",sort/./g}.=$_,sort<>;$<$_&&print/\D+/gfor sort map$+s/
^/ /mg.$_,%v

Score: 83.40 (pass)

#!perl
map$v{join"",sort/./g}.=$_,sort<>;print map$<$_&&/\D+/g,sort map$+s/
^/ /mg.$_,%v

Score: 86.38 (pass)

#!perl
map$v{join"",sort/./g}.=$_,sort<>;print map/\D+/g,sort map{$a.$_ if$a=s/
^/ /mg}@v{%v}

Score: 86.41 (pass)

#!perl
map$v{join"",sort/./g}.=$_,sort<>;$<$_&&print/\D+/gfor sort map$+s/
^/ /mg.$_,@v{%v}

Score: 87.39 (pass)

#!perl
map$v{join"",sort/./g}.=$_,sort<>;print map$<$_&&/\D+/g,sort map$+s/
^/ /mg.$_,@v{%v}

Score: 87.39 (pass)

#!perl
map$v{join"",sort/./g}.=$_,sort<>;print map$<$_&&/\D+/g,sort map$+s/
^/ /mg.$_,@v{%v}

Score: 89.40 (pass)

#!perl
$v{join"",sort/./g}.=$_ for sort<>;print map$_!=$&&/\D+/g,sort map$+s/
^/ /mg.$_,@v{%v}

Score: 101.36 (pass)

#!perl -p
$v{join"",sort/./g}.=$_}for(map{$_!=$ and/(\D+)/g}sort map$-1+(split$/).(join" ",sort@_).$/,%v){

Score: 102.35 (pass)

#!perl -p
$v{join"",sort/./g}.=$_}for(map{$_!=$ and/(\D+)/g}sort map$-1+(split$/).(join" ", sort@_).$/,%v){