Accepted

Score	Golfer	Submit Time	Code
61.46	BoB (Best of Breed - referees)	Sat Apr 6 17:24:21 2002	map!s/ \b/ /|//||print,sort%%for map$%{o,sort/./g}.=$_,sort<>
61.46	Lars Mathiesen	Sun Apr 7 13:40:43 2002	map!s/ ^/ /m|//||print,sort%0for map$0{0,sort/./g}.=$_,sort<>
61.48	Lars Mathiesen	Fri Apr 5 20:25:46 2002	map!s/ \b/ /|//||print,sort%0for map$0{0,sort/./g}.=$_,sort<>
62.44	BoB (Best of Breed - referees)	Sun Apr 7 22:39:40 2002	map!s/$ ^/ /m|//||print,sort%%for map$%{_,sort/./g}.=$_,sort<>
63.46	Stephen Turner	Sun Apr 7 17:43:23 2002	$s{o,sort/./g}=~s/.*/~$& $_/for sort<>;print/ (.* ) /for sort%s
63.46	Ton Hospel	Sun Apr 7 20:37:54 2002	$_{_,sort/./g}=~s/.*/_$& $_/for sort<>;print/ (.* ) /for sort%_
63.46	Ton Hospel	Sun Apr 7 22:39:25 2002	$_{_,sort/./g}=~s/.*/_$& $_/for sort<>;print/ (.* ) /for sort%_
63.48	Ton Hospel	Sun Apr 7 20:33:37 2002	$_{1,sort/./g}=~s/.*/1$& $_/for sort<>;print/ (.* ) /for sort%_
63.48	Jasper McCrea	Sun Apr 7 17:08:05 2002	$o{1,sort/./g}=~s/.*/1$& $_/for sort<>;print/ (.* ) /for sort%o
63.52	Ton Hospel	Sun Apr 7 12:33:21 2002	map$v{1,sort/./g}=~s/.*/1$& $_/,sort<>;print/ (.* ) /for sort%v
64.44	Adam Spiers	Fri Apr 5 09:22:17 2002	$g{g,sort/./g}=~s/.*/~$& $_/for sort<>;print/~~ (.* )/for sort%g
64.44	BoB (Best of Breed - referees)	Wed Apr 3 06:10:46 2002	$_{_,sort/./g}=~s/.*/_$& $_/for sort<>;print/__ (.* )/for sort%_
64.44	Alma Media Golf Team	Wed Apr 3 13:19:23 2002	$f{f,sort/./g}=~s/.*/~$& $_/for sort<>;print/~~ (.* )/for sort%f
64.44	MeowChow	Wed Apr 3 04:57:38 2002	$o{_,sort/./g}=~s/.*/_$& $_/for sort<>;print/__ (.* )/for sort%o
64.48	Lars Mathiesen	Fri Apr 5 20:06:14 2002	map$0{0,sort/./g}.=$_,sort<>;map!s/ \b/ /|//||print,sort%0for%::
64.52	Ton Hospel	Sun Apr 7 12:29:03 2002	map$v{1,sort/./g}=~s/.*/A$& $_/,sort<>;print/AA (.* )/for sort%v
65.45	BoB (Best of Breed - referees)	Wed Apr 3 05:53:55 2002	map$_{a,sort/./g}=~s/.*/_$& $_/,sort<>;print map/__ (.* )/,sort%_
65.45	BoB (Best of Breed - referees)	Wed Apr 3 05:58:54 2002	map$_{a,sort/./g}=~s/.*/_$& $_/,sort<>;print map/__ (.* )/,sort%_
65.46	Alma Media Golf Team	Wed Apr 3 11:36:57 2002	map$f{f,sort/./g}=~s/.*/~$& $_/,sort<>;print/~~ (.*\n)/for sort%f
65.51	Ton Hospel	Sun Apr 7 12:05:42 2002	map$v{1,sort/./g}=~s/.*/A$& $_/,sort<>;print/AA (.* )/gfor sort%v
66.42	Ari Kauppi	Sun Apr 7 22:32:29 2002	$p{p,sort/(.)/g}=~s/.*/%$& $_/for sort<>;print/%% (.* )/for sort%p
66.47	Jasper McCrea	Sun Apr 7 13:00:29 2002	$f{f,sort/./g}=~s/.*/1$& $_/for sort<>;print$1x/ (.* ) /for sort%f
66.47	Jasper McCrea	Sun Apr 7 16:06:35 2002	$f{o,sort/./g}=~s/.*/1$& $_/for sort<>;print$1x/ (.* ) /for sort%f
67.42	Rick Klement	Thu Apr 4 02:55:17 2002	map$n^s/\s\b/ /g||print,sort%a,$n++for map$a{r,sort/./g}.=$_,sort<>
67.45	Ari Kauppi	Sun Apr 7 19:48:12 2002	map$p{0,sort/(.)/g}=~s/.*/%$& $_/,sort<>;map{print/%% (.* )/}sort%p
67.45	Colm Dougan	Sat Apr 6 21:59:57 2002	map$s{1,sort/./g}=~s/(.*) */1$1 $_/,sort<>;map{/11 /;print$'}sort%s
67.46	Jasper McCrea	Sat Apr 6 16:21:42 2002	$r{r,sort/./g}=~s/(.*) ?/1$1 $_/for sort<>;print$' x/11 /for sort%r
68.40	Rick Klement	Wed Apr 3 05:40:09 2002	++$s,map$s^s/ | ^/ /mg||print,sort%,for map$,{r,sort/./g}.=$_,sort<>
68.43	MeowChow	Wed Apr 3 04:52:24 2002	$o{join_,sort/./g}=~s/.*/_$& $_/for sort<>;print/__ (.* )/for sort%o
68.44	Mtv Europe	Fri Apr 5 13:50:34 2002	map$a{a,sort/./g}.=$_,sort<>;map$p[split].="@_ "x/ ./,sort%a;print@p
68.44	BoB (Best of Breed - referees)	Tue Apr 2 22:29:36 2002	$f{1,sort/./g}=~s,(.*) *,~$1 $_,for sort<>;/~~ /&&print$' for sort%f
68.46	Adam Spiers	Fri Apr 5 00:14:02 2002	map$g{g,sort/./g}=~s/.*/~$& $_/,sort<>;/~~ (.* )/&&print$1for sort%g
68.46	Lars Mathiesen	Fri Apr 5 14:02:08 2002	map$2{2,sort/./g}.=$_,sort<>;print grep s/ / /+y/ //==2,sort%2for%::
68.47	Adam Spiers	Fri Apr 5 00:09:47 2002	map$h{1,sort/./g}=~s/.*/~$& $_/,sort<>;/~~ (.* )/&&print$1for sort%h
68.47	Mtv Europe	Thu Apr 4 21:38:00 2002	map$a{a,sort/./g}.=$_,sort<>;$p[split].="@_ "x/ ./for sort%a;print@p
69.41	Rick Klement	Wed Apr 3 04:36:31 2002	++$s,map$s==s/ | ^/ /mg&&print,sort%,for map$,{r,sort/./g}.=$_,sort<>
69.42	Alma Media Golf Team	Tue Apr 2 22:19:37 2002	$f{1,sort/./g}=~s,(.*)$/*,~$1 $_,for sort<>;/~~ /&&print$' for sort%f
69.42	MeowChow	Wed Apr 3 04:15:28 2002	$o{join//,sort/./g}=~s;.*;_$& $_;for sort<>;print/__ (.* )/for sort%o
69.45	BoB (Best of Breed - referees)	Tue Apr 2 21:11:15 2002	map$p{b,sort/./g}.=$_,sort<>;$a[s/ \b/ /g].=$_ x/ /for sort%p;print@a
69.45	Ari Kauppi	Sun Apr 7 13:17:33 2002	map{$p{0,sort/(.)/g}=~s/.*/%$& $_/}sort<>;map{print/%%+.(.+ )/}sort%p
69.49	Ton Hospel	Sat Apr 6 11:41:16 2002	map$v{1,sort/./g}.=$_,sort<>;$c[split].=@_>1&&"@_ "for sort%v;print@c
70.43	Amir Karger	Sun Apr 7 17:54:01 2002	$o{join"",sort/./g}=~s/.*/~$& $_/for sort<>;print/\w+ .*\n/gfor sort%o
70.44	Colm Dougan	Thu Apr 4 09:22:30 2002	$p{1,sort/./g}=~s/(.*)\s*/0$1 $_/for sort<>;s/00+ //&&print for sort%p
70.46	Amir Karger	Sun Apr 7 17:24:37 2002	map$o{join"",sort/./g}=~s/.*/~$& $_/,sort<>;print/\w+ .*\n/gfor sort%o
70.47	MeowChow	Wed Apr 3 03:39:10 2002	map$_{"@{[sort/./g]}"}=~s/.*/_$& $_/,sort<>;print map/__ (.* )/,sort%_
70.49	Adam Spiers	Fri Apr 5 00:00:17 2002	-l map$h{1,sort/./g}=~s/.*/~$& $_/,sort<>;/~~ (.*)/&&print$+for sort%h
70.50	Ton Hospel	Wed Apr 3 14:08:51 2002	map$v{1,sort/./g}.=$_,sort<>;$c[split].="@_ "for sort%v;print@c[2..16]
71.38	Terje K	Sun Apr 7 19:06:01 2002	map$a{a,sort/./g}.=-$_,sort<>;map{/.-/&&print$'}sort map{s/ -/ /g.$_}%a
71.42	Alma Media Golf Team	Tue Apr 2 21:06:00 2002	-l $f{chop,sort/./g}=~s/.*/~$& $_/for sort<>;s/~~+ //&&print for sort%f
71.44	Amir Karger	Sun Apr 7 16:34:55 2002	map$o{join"",sort/./g}=~s/.*/~$& $_/,sort<>;print map/\w+ .*\n/g,sort%o
71.49	MeowChow	Wed Apr 3 01:33:25 2002	map$w{"@{[sort/./g]}"}=~s/.*/1$& $_/,sort<>;print map/11 (.* )/g,sort%w
72.39	Josef Drexler	Sun Apr 7 03:14:21 2002	$o{g,sort/./g}.=$_ for sort<>;$g[split].="@_$/"for sort%o;print@g[2..$.]
72.43	Lars Mathiesen	Fri Apr 5 00:29:48 2002	map$2{2,sort/./g}.=$_,sort<>;print grep$s==s/\s\b/ /g,sort%2while++$s<22
72.44	Mtv Europe	Wed Apr 3 17:06:51 2002	map$m{p,sort/./g}.=$_,sort<>;$a[s/ (.)/ $1/g].=$_ x/ /for sort%m;print@a
72.44	BoB (Best of Breed - referees)	Tue Apr 2 18:40:26 2002	map$p{p,sort/./g}.=$_,sort<>;$a[s/ (.)/ $1/g].=$_ x/ /for sort%p;print@a
73.37	Stephen Turner	Thu Apr 4 19:55:19 2002	map$s{o,sort/./g}=~s/.*/~$&~$_/s,sort<>;map{s/~*//,s/ ~/ /g&&print}sort%s
73.37	Jasper McCrea	Fri Apr 5 17:15:02 2002	map$a{a,sort/./g}.=" $_",sort<>;map{/. /&&print$'}sort map{s/ / /g.$_}%a
73.38	Stephen Turner	Wed Apr 3 18:21:34 2002	map$s{o,sort/./g}=~s/.*/~$&~$_/s,sort<>;print grep{s/~*//,s/ ~/ /g}sort%s
73.38	Jasper McCrea	Thu Apr 4 15:59:05 2002	map$o{1,sort/./g}.=" $_",sort<>;map{/. /&&print$'}sort map{s/ / /g.$_}%o
73.40	Jasper McCrea	Thu Apr 4 10:52:55 2002	map$i{1,sort/./g}.=$".$_,sort<>;/. /&&print$' for sort map{s/ / /g.$_}%i
73.41	Stephen Turner	Wed Apr 3 16:48:12 2002	map$s{o,sort/./g}=~s/.*/~$&$_/s,sort<>;print grep{s/~*//,s/ \b/ /g}sort%s
73.42	Rick Klement	Tue Apr 2 18:03:33 2002	map$,{r,sort/./g}.=$_,sort<>;print grep$s==s/ | ^/ /mg,sort%,while++$s<$=
73.42	Lars Mathiesen	Fri Apr 5 00:27:39 2002	map$2{2,sort/./g}.=$_,sort<>;print sort grep$s==s/\s\b/ /g,%2while++$s<22
73.44	Mtv Europe	Tue Apr 2 18:21:17 2002	map$p{p,sort/./g}.=$_,sort<>;$a[s/\n(.)/ $1/g].=$_ x/ /for sort%p;print@a
74.38	Terje K	Sun Apr 7 18:55:39 2002	map$a{a,sort/./g}.=-$_,sort<>;print grep s/..-//,sort map{9+s/ -/ /g.$_}%a
74.38	Juho Snellman	Thu Apr 4 23:26:50 2002	-p $a{a,sort/./g}.=$_}for(sort map"}"x(@a=sort/.+/g)."@a ",%a){/}}+/,$_=$'
74.39	Eugene van der Pijll	Sat Apr 6 21:56:50 2002	map$o{o,sort/./g}.=$_,sort<>;map{/}+/.print$'}sort map'}'x s/ \b/ /g.$_,%o
74.39	Jasper McCrea	Thu Apr 4 07:57:31 2002	map$o{1,sort/./g}.=" $_",sort<>;/. /&&print$' for sort map{s/ / /mg.$_}%o
74.39	Terje K	Sun Apr 7 18:48:58 2002	map$a{a,sort/./g}.=-$_,sort<>;map{/..-/&&print$'}sort map{9+s/ -/ /g.$_}%a
74.39	Juho Snellman	Wed Apr 3 21:18:14 2002	-p $a{1,sort/./g}.=$_}for(sort map'}'x(@a=sort/.+/g)."@a ",%a){/}}+/,$_=$'
74.41	Keith Calvert Ivey	Sun Apr 7 13:05:50 2002	map$%{join _,sort/./g}.=$_,sort<>;map$_[s] ^] ]gm].=/ /&&$_,sort%%;print@_
74.41	Keith Calvert Ivey	Sun Apr 7 19:32:18 2002	map$%{join _,sort/./g}.=$_,sort<>;map$@[s] ^] ]gm].=$_ x/ /,sort%%;print@@
74.42	Rick Klement	Tue Apr 2 17:39:29 2002	map$,{r,sort/./g}.=$_,sort<>;print grep s/ | ^/ /mg==$s,sort%,while++$s<$=
74.42	BoB (Best of Breed - referees)	Tue Apr 2 16:03:07 2002	-p $a{d,sort/./g}.=$_}for(sort map{1x(@a=sort/.+/g)." @a "}%a){/11 /;$_=$'
74.43	Rick Klement	Tue Apr 2 17:32:15 2002	map$,{r,sort/./g}.=$_,sort<>;map{s/ | ^/ /mg==$s&&print}sort%,while++$s<$=
74.47	Marko Nippula	Sun Apr 7 13:14:53 2002	-p $_{1,sort/./g}.=$_}for(sort+map{@_=sort/.+/g;1x$#_." @_ "}%_){s/\C.* //
74.49	Honza Pazdziora	Thu Apr 4 20:37:50 2002	$h{"@{[sort/./g]}"}=~s/(.*) ?/{$1 $_/for sort<>;print grep s/{{+ //,sort%h
75.37	Juho Snellman	Wed Apr 3 21:14:37 2002	-p $a{"",sort/./g}.=$_}for(sort map'}'x(@a=sort/.+/g)."@a ",%a){/}}+/,$_=$'
75.40	Stephen Turner	Wed Apr 3 14:26:11 2002	map$s{9,sort/./g}.=$_,sort<>;print grep{s/1..//}sort map{99+s/ \b/ /g.$_}%s
75.40	Eirik Berg Hanssen	Sun Apr 7 22:35:24 2002	map$_{_,sort/./g}.=$_,sort<>;print grep{s/}+//}sort map"}"x s/ \b/ /g.$_,%_
75.41	Andrew Savige	Sun Apr 7 20:38:15 2002	map$>{o,sort/./g}.=$_,sort<>;@}{s+ (?=.)+ +g}.=$_ for sort%>;print@}{1..$=}
75.41	Andrew Savige	Sun Apr 7 22:44:34 2002	map$>{o,sort/./g}.=$_,sort<>;$>{s+ (?=.)+ +g}.=$_,for+sort%>;print@>{1..$=}
75.41	Jasper McCrea	Thu Apr 4 07:56:04 2002	map$o{1,sort/./g}.=" $_",sort<>;/\d /&&print$' for sort map{s/ / /mg.$_}%o
75.41	Jay Tilton	Sun Apr 7 23:51:57 2002	-p $h{i,sort/./g}.=$_}for(sort map{chr(@_=sort split)|"h@_ "}%h){s/i.*|.//s
75.45	Jay Tilton	Fri Apr 5 20:04:41 2002	-p $h{Q,sort/./g}.=$_}for(sort map{chr(@_=sort split)^"P@_ "}%h){s/Q.*|.//s
75.48	Ton Hospel	Tue Apr 2 21:35:27 2002	map$v{join"",sort/./g}.=$_,sort<>;$c[split].="@_ "for sort%v;print@c[2..16]
76.36	Chris Dolan	Sun Apr 7 17:37:25 2002	map$a{o,sort/./g}.=_.$_,sort<>;map{s/.._//&&print}sort map{9+s,\n_, ,g.$_}%a
76.39	BoB (Best of Breed - referees)	Tue Apr 2 14:48:03 2002	-p $a{g,sort/./g}.=$_}for(sort map{1x@a." @a "if(@a=sort/.+/g)>1}%a){s/1+.//
76.43	Eirik Berg Hanssen	Sun Apr 7 17:24:49 2002	-p $.{0,sort/./g}.=$_}for(sort+map"}"x+split."@{[sort@_]}$/",%.){s/}}+|.*//s
76.46	Yanick Champoux	Sun Apr 7 02:48:06 2002	map$1{join$|,sort/./g}.=$_,sort<>;map$g^s/\s\b/ /g||print,sort%1while++$g<99
77.38	Mtv Europe	Tue Apr 2 17:11:41 2002	map$p{p,sort/./g}.=$_,sort<>;$a{s/\n(.)/ $1/sg}.=$_ for sort%p;print@a{1..$.}
77.39	Jasper McCrea	Thu Apr 4 07:53:02 2002	$o{1,sort/./g}.=" $_"for sort<>;/1 /&&print$' for sort map{1x s/ / /mg.$_}%o
77.39	Marko Nippula	Fri Apr 5 06:08:52 2002	-p $m{1,sort/./g}.=$_}{map{$\.=/22 /&&$'}sort map{@a=sort/.+/g;2x@a." @a "}%m
77.40	Keith Calvert Ivey	Sun Apr 7 05:59:00 2002	map$%{join _,sort/./g}.=$_,sort<>;map{/ ./and$_[s] ^] ]gm].=$_}sort%%;print@_
77.42	BoB (Best of Breed - referees)	Tue Apr 2 14:23:31 2002	map$v{D,sort/./g}.=$_,sort<>;$^T<$_&&print/\D+/gfor sort map$^T+s/ ^/ /mg.$_,%v
77.43	Ton Hospel	Tue Apr 2 20:28:21 2002	map$v{join"",sort/./g}.=$_,sort<>;$c{s/ ^/ /mg}.=$_ for sort%v;print@c{1..15}
77.48	Yanick Champoux	Sun Apr 7 02:42:42 2002	map$1{join':',sort/./g}.=$_,sort<>;map$g^s/\s\b/ /g||print,sort%1while$g++<99
78.38	Rick Myers	Sun Apr 7 14:27:11 2002	map$i{a,sort/./g}.=$_,sort<>;map{/{+/,print$'}sort map{'{'x s/ (?=.)/ /g.$_}%i
78.41	Rick Klement	Tue Apr 2 16:57:12 2002	map$,{r,sort/./g}.=$_,sort<>;map{s/ ^/ /mg;y/ //==$s&&print}sort%,while++$s<$=
78.41	Amir Karger	Fri Apr 5 18:43:34 2002	map$o{join"",sort/./g}.=$_,sort<>;$r[s/\n\b/ /g].=$_ for sort%o;print@r[1..@r]
78.41	Geoff Hubbard	Sun Apr 7 14:24:41 2002	++$m^map{$m^s/ (?!$)/ /g||print}sort%a=%.for map$.{join$m,sort/./g}.=$_,sort<>
78.44	Terje K	Sat Apr 6 07:52:09 2002	map$a{a,sort/./g}.=$_,sort<>;map{/\d\d/&&print$'}sort map{9+s/ (?!$)/ /g.$_}%a
79.38	Andrew Savige	Sun Apr 7 02:16:18 2002	map$>{o,sort/./g}.=$_,sort<>;print+map/(\D+ .+)/s,sort+map$=+s+ (?=.)+ +g.$_,%>
79.39	Keith Calvert Ivey	Sat Apr 6 19:14:58 2002	map$%{join _,sort/./g}.=$_,sort<>;print grep s/.\d//,sort map 9+s/ ^/ /gm.$_,%%
79.39	Keith Calvert Ivey	Sun Apr 7 02:10:17 2002	map$%{join t,sort/./g}.=$_,sort<>;map+s&.\d&&&&print,sort+map+9+s+ ^+ +gm.$_,%%
79.39	Rick Myers	Sun Apr 7 09:20:20 2002	map$i{p,sort/./g}.=$_,sort<>;map{/{+/&&print$'}sort map{'{'x s/ (?=.)/ /g.$_}%i
79.39	John McNamara	Sun Apr 7 16:03:57 2002	map$j{join"",sort/./g}.=$_,sort<>;print+grep{s/.\d//}sort+map+8+split."@_\n",%j
79.39	Andrew Savige	Fri Apr 5 04:05:06 2002	map$>{o,sort/./g}.=$_,sort<>;print+map/(\D+ .+)/s,sort+map$^T+s+ (?=.)+ +g.$_,%>
79.39	Juho Snellman	Tue Apr 2 15:58:35 2002	-p $a{"@{[sort/./g]}"}.=$_}for(sort map{1x(@a=sort/.+/g)." @a "}%a){/11 /;$_=$'
79.42	Keith Calvert Ivey	Wed Apr 3 04:00:34 2002	map$%{join'',sort/./g}.=$_,sort<>;print grep s/.\d//,sort map 9+s/ ^/ /gm.$_,%%
79.42	Eugene van der Pijll	Sat Apr 6 21:20:59 2002	map$o{"@{[sort/./g]}"}.=$_,sort<>;map{/}+/.print$'}sort map"}"x s/ \b/ /g.$_,%o
79.42	Joost Diepenmaat	Sun Apr 7 17:34:38 2002	$f{z,sort/./g}.=$_ for<>;s/.\d//&&print for sort map{@r=sort/.+/g;8+@r."@r "}%f
79.42	Geoff Hubbard	Sat Apr 6 20:50:41 2002	++$m^map{$m^s/( | )(?!$)/ /g||print}sort%;for map$;{join$m,sort/./g}.=$_,sort<>
80.39	Rick Klement	Tue Apr 2 15:47:47 2002	map$s{r,sort/./g}.=$_,sort<>;for$s(1..$=){print grep{s/ ^/ /mg;y/ //==$s}sort%s}
80.39	John McNamara	Sun Apr 7 15:41:53 2002	map$j{join"",sort/./g}.=$_,sort<>;print+grep{s/\d\d//}sort+map+8+split."@_\n",%j
80.39	BoB (Best of Breed - referees)	Mon Apr 1 22:25:28 2002	map$v{D,sort/./g}.=$_,sort<>;print map$^T<$_&&/\D+/g,sort map$^T+s/ ^/ /mg.$_,%v
80.39	Juho Snellman	Tue Apr 2 15:51:43 2002	-p $a{"@{[sort/./g]}"}.=$_}for(sort map{@a=sort/.+/g;1x@a." @a "}%a){/11 /;$_=$'
80.41	Lars Mathiesen	Thu Apr 4 23:51:36 2002	map$2{2,sort/./g}.=$_,sort<>;print sort grep{$s==s/\s\b/ /g}values%2while++$s<22
80.44	Jay Tilton	Thu Apr 4 07:21:22 2002	-p $h{P,sort/./g}.=$_}for(grep{y/R-_//d}sort map{P^chr(@_=sort split)."@_ "}%h){
80.46	Eugene van der Pijll	Tue Apr 2 17:46:57 2002	#!perl map$o{"@{[sort/./g]}"}.=$_,sort<>;print/}+(.* )/for sort map"}"x s/ \b/ /g.$_,%o
81.37	Eric Roode	Sun Apr 7 03:15:48 2002	$_{"@{[sort/./g]}"}.=$_ for sort<>;$_[s/ (.)/ $1/g].=$_ for sort%_;print@_[1..99]
81.38	Juho Snellman	Tue Apr 2 02:59:11 2002	-p $a{"@{[sort/./g]}"}.=$_}for(sort map{1x@a." @a "if(@a=sort/.+/g)>1}%a){s/1+.//
81.40	Andrew Savige	Thu Apr 4 06:57:51 2002	map$>{o,sort/./g}.=$_,sort<>;print+map/(\D+ .+)/s,sort+map+9x9+s+ (?=.)+ +g.$_,%>
81.41	Andrew Savige	Thu Apr 4 00:24:22 2002	map$>{o,sort/./g}.=$_,sort<>;print map/(\D+ .+)/s,sort map 1e9+s+ (?=.)+ +g.$_,%>
81.42	Chris Dolan	Sat Apr 6 16:58:17 2002	-lp push@{$a{8,sort/./g}},$_}for(grep s/\d\d//,sort map{8+@$_.join$",sort@$_}%a){
82.40	Adam Spiers	Thu Apr 4 00:02:02 2002	-lpa @$_=sort@F,@$_ for$h{1,sort/./g}}for(grep/ /,sort map'~'x@$_."@$_",%h){s/~+//
82.41	Ton Hospel	Mon Apr 1 22:48:11 2002	map$v{join"",sort/./g}.=$_,sort<>;$^T<$_&&print/\D+/gfor sort map$^T+s/ ^/ /mg.$_,%v
82.41	Andrew Savige	Tue Apr 2 14:43:50 2002	-lp push@{$]{o,sort/./g}},$_}for(map/(\D+ .+)/,sort map@$_+1e9."@{[sort@$_]}",%]){
82.43	Philippe Bricout	Sun Apr 7 14:35:40 2002	$s{2,sort/./g}.=$_ for sort<>;for$s(2..22){$s-split||print"@_\n"for sort values%s}
82.44	Chris Dolan	Fri Apr 5 23:35:39 2002	-lp push@{$a{9,sort/./g}},$_}for(grep{s/\d{2}//}sort map{8+@$_.join$",sort@$_}%a){
83.37	Sec	Sun Apr 7 14:11:44 2002	-pl push@{$p{8,sort split//}},$_}for(sort map{8+@$_.join$",sort@$_}%p){s/..//||last
83.39	Juho Snellman	Tue Apr 2 02:34:30 2002	-p $a{"@{[sort/./g]}"}.=$_}for(sort map{1<(@a=sort/.+/g)&&(9x@a)." @a "}%a){s/9+.//
83.40	Ton Hospel	Mon Apr 1 22:13:27 2002	map$v{join"",sort/./g}.=$_,sort<>;print map$^T<$_&&/\D+/g,sort map$^T+s/ ^/ /mg.$_,%v
83.41	Andrew Savige	Tue Apr 2 13:37:58 2002	-lp push@{$]{o,sort/./g}},$_}for(map/(\D+ \D+)/,sort map@$_+1e9."@{[sort@$_]}",%]){
83.41	BoB (Best of Breed - referees)	Mon Apr 1 21:51:58 2002	-p $a{"@{[sort/./g]}"}.=$_}for(sort map/ ./&&"@{[9x y/ //,sort/.+/g]} ",%a){s/9+.//
83.49	Yanick Champoux	Sat Apr 6 17:07:54 2002	map$1{"@{[sort/./g]}"}.=$_,sort<>;map$g^s/\s\b/ /g||print,sort values%1while++$g<99
84.37	Eugene van der Pijll	Tue Apr 2 13:00:31 2002	#!perl -pl push@{$o{"@{[sort/./g]}"}},$_}for(map/11 (.*)/,sort map"@{[1x@$_,sort@$_]}",%o){
84.39	Juho Snellman	Mon Apr 1 22:02:58 2002	-p $a{"@{[sort/./g]}"}.=$_}for(sort map/ ./&&"@{[9x tr/ //,sort/.+/g]} ",%a){s/9+.//
84.40	Jasper McCrea	Wed Apr 3 17:51:25 2002	-ln END{/11 /&&print$' for sort map{join$",1x@$_,sort@$_}%o}push@{$o{1,sort/./g}},$_
84.46	Yanick Champoux	Sat Apr 6 17:01:02 2002	map$h{"@{[sort/./g]}"}.=$_,sort<>;map$i^s/\s\b/ /g||print,sort values%h while++$i<99
85.36	Sec	Sat Apr 6 23:26:44 2002	-pl push@{$p{(8,sort split//)}},$_}for(sort map{8+@$_."@{[sort@$_]}"}%p){s/..//||last
85.38	Eugene van der Pijll	Tue Apr 2 11:32:20 2002	#!perl -pl push@{$o{"@{[sort/./g]}"}},$_}for(grep s/11+ //,sort map"@{[1x@$_,sort@$_]}",%o){
85.39	Rick Myers	Sun Apr 7 08:36:38 2002	map$i{p,sort/./g}.=$_,sort<>;map{/ /&&/./&&print$'}sort map{chr(2*s/ (?=.)/ /g).$_}%i
85.39	Lars Mathiesen	Thu Apr 4 18:42:59 2002	$2{2,sort split//}.=$_ for sort<>;print sort grep{$s==s/\s\b/ /g}values%2while++$s<22
85.40	John McNamara	Fri Apr 5 07:31:24 2002	map$j{join"",sort/./g}.=$_,<>;print grep{s/\d\d//}sort map+8+split."@{[sort@_]}\n",%j
85.40	Juho Snellman	Mon Apr 1 21:54:00 2002	-p $a{"@{[sort/./g]}"}.=$_}for(sort map/ ./&&"@{[9x tr/ //,sort/.+/g]}\n",%a){s/9+.//
85.41	Arnaud ASSAD	Fri Apr 5 23:05:10 2002	-nl push@{$&{1,sort/./g}},$_;END{map{/ /,$`&&print$'}sort map{join$",$#$_,sort@$_}%&}
85.42	Michael Wrenn	Sun Apr 7 06:29:26 2002	map{$s{join'',sort/./g}=~s/.*/1$& $_/}sort<>;map{y/ //s;s/.1+ //&&print}sort values%s
85.42	Jasper McCrea	Wed Apr 3 17:24:00 2002	-ln END{/1+ /&&print$' for sort map{join$",1x$#$_,sort@$_}%o}push@{$o{1,sort/./g}},$_
85.44	Chris Dolan	Fri Apr 5 23:34:34 2002	-lp push@{$a{9,sort/./g}},$_}for(grep{s/\d+//&$&>9}sort map{8+@$_.join$",sort@$_}%a){
85.48	Yanick Champoux	Fri Apr 5 16:41:32 2002	map$h{"@{[sort/./g]}"}.=$_,sort<>;for$i(1..99){map$i^s/\s\b/ /g||print,sort values%h}
86.36	Josef Drexler	Fri Apr 5 21:34:29 2002	push@{$o[$o{chop,sort/./g}||=2+@o]},$_ for sort<>;$_[@$_].="@$_$/"for@o;print@_[2..22]
86.38	Ton Hospel	Mon Apr 1 21:42:58 2002	map$v{join"",sort/./g}.=$_,sort<>;print map/\D+/g,sort map{$a.$_ if$a=s/ ^/ /mg}@v{%v}
86.38	Juho Snellman	Mon Apr 1 21:36:11 2002	-p $a{"@{[sort/./g]}"}.=$_}for(sort map/\n./&&"@{[9x tr/ //,sort/.+/g]}\n",%a){s/9+.//
86.40	Chris Dolan	Fri Apr 5 23:23:36 2002	-ln push@{$a{9,sort/./g}},$_}{s/\d+//&$&>9&&print for sort map{8+@$_.join$",sort@$_}%a
86.40	BoB (Best of Breed - referees)	Mon Apr 1 21:08:04 2002	-p $a{"@{[sort/./g]}"}.=$_}for(sort map"@{[9x y/ //,sort/.+/g]} ",grep/ ./,%a){s/9+.//
86.40	Arnaud ASSAD	Fri Apr 5 18:51:08 2002	-nl push@{$&{1,sort/./g}},$_;END{map{/ /,$`&&print$'}sort map{join' ',$#$_,sort@$_}%&}
86.41	Ton Hospel	Mon Apr 1 21:58:19 2002	map$v{join"",sort/./g}.=$_,sort<>;$^T<$_&&print/\D+/gfor sort map$^T+s/ ^/ /mg.$_,@v{%v}
86.41	Mtv Europe	Tue Apr 2 14:06:18 2002	$f{f,sort/./g}.=$_ for<>;for$i(2..$.){print sort map$i==y/\n//&&"@{[sort/.+/g]}\n",%f}
86.43	Jasper McCrea	Wed Apr 3 16:08:23 2002	-ln END{/ /&$`>0&&print$' for sort map{join$",$#$_,sort@$_}%o}push@{$o{1,sort/./g}},$_
86.43	Eirik Berg Hanssen	Tue Apr 2 03:17:55 2002	-nl END{s/^~~+//&&print for sort map"~"x@$_."@{[sort@$_]}",%s}push@{$s{0,sort/./g}},$_
86.43	Zephyr McLaughlin	Sun Apr 7 23:30:52 2002	map{$s{join"",sort split//}=~s/(.*) ?/~$1 $_/}sort<>;map{s/~~+ //&&print}sort values%s
86.48	Yanick Champoux	Fri Apr 5 05:13:16 2002	map$h{"@{[sort/./g]}"}.=$_,sort<>;for$i(1..99){map{s/\s\b/ /g-$i||print}sort values%h}
87.34	Eugene van der Pijll	Tue Apr 2 02:25:14 2002	#!perl -pl push@{$o{"@{[sort/./g]}"}},$_}for(sort grep/ /,map"}"x@$_."@{[sort@$_]}",%o){s/}//g
87.36	Rick Klement	Tue Apr 2 01:44:59 2002	map$s{r,sort/./g}.=$_,sort<>;print sort{$a=~y/ //-$b=~y/ //or$a cmp$b}grep s/ ^/ /mg,%s
87.39	Ton Hospel	Mon Apr 1 21:28:40 2002	map$v{join"",sort/./g}.=$_,sort<>;print map$^T<$_&&/\D+/g,sort map$^T+s/ ^/ /mg.$_,@v{%v}
87.39	Ton Hospel	Mon Apr 1 21:36:19 2002	map$v{join"",sort/./g}.=$_,sort<>;print map$^T<$_&&/\D+/g,sort map$^T+s/ ^/ /mg.$_,@v{%v}
87.39	Jasper McCrea	Wed Apr 3 09:18:20 2002	-ln END{/ /&&print$' for sort map{$#$_&&join$",sort$#$_,@$_}%o}push@{$o{1,sort/./g}},$_
87.39	gimbo	Wed Apr 3 15:16:10 2002	-ln push@{$a{join"",sort/./g}},$_}{map{/ /,$`>0&&print$'}sort map"@{[$#$_,sort@$_]}",%a
87.44	Michael Wrenn	Sat Apr 6 20:52:46 2002	map{$s{join'',sort/./g}=~s/(.*)/1$1 $_/}sort<>;map{y/ //s;s/.1+ //&&print}sort values%s
87.48	Yanick Champoux	Fri Apr 5 05:11:38 2002	map$h{"@{[sort/./g]}"}.=$_,sort<>;for$i(1..99){map{s/ | \b/ /g-$i||print}sort values%h}
88.35	Sec	Sat Apr 6 09:49:10 2002	-pl push@{$p{join"",sort split//}},$_}for(sort map{8+@$_.join$",sort@$_}%p){s/..//||last
88.38	Eugene van der Pijll	Tue Apr 2 02:01:32 2002	#!perl -pl push@{$o{"@{[sort/./g]}"}},$_}for(sort map@$_>1?"}"x@$_."@{[sort@$_]}":@o,%o){s/}//g
88.40	Marko Nippula	Thu Apr 4 12:03:42 2002	-p $m{@_,sort split//}.=$_}{map{$\.=$' if/^./}sort map{@a=sort split;chr(9+@a)."@a\n"}%m
88.40	Samy Kamkar	Sat Apr 6 11:49:55 2002	map{$x{x,sort/./g}.=$_}sort<>;map{s/ \b/ /g&&print}sort{$a=~y/ //-$b=~y/ //||$a cmp$b}%x
88.42	Piers Cawley	Tue Apr 2 20:52:55 2002	-pl @$g=sort@{$g=join 0,sort/./g},$_}for(grep/ \w/,sort map"{"x@$_."@$_",keys%::){y/{//d
88.43	Michael Wrenn	Fri Apr 5 22:55:51 2002	map{$s{join'',sort/./g}=~s/(.*)/1$1 $_/}sort<>;map{y/\n//s;s/.1+ //&&print}sort values%s
88.43	Piers Cawley	Tue Apr 2 19:52:27 2002	-pl @$g=sort@{$g=join 0,sort/./g},$_}for(grep/ \w/,sort map{z x@$_."@$_"}keys%::){s/z*//
88.43	Piers Cawley	Tue Apr 2 20:49:20 2002	-pl @$g=sort@{$g=join 0,sort/./g},$_}for(grep/ \w/,sort map{z x@$_."@$_"}keys%::){s/z*//
89.34	Stephen Turner	Wed Apr 3 12:03:06 2002	map$s{o,sort/./g}.=$_,sort<>;print sort{$a=~y/ //<=>$b=~y/ //or$a cmp$b}grep{s/ \b/ /g}%s
89.36	Tom Hargreaves	Thu Apr 4 11:58:52 2002	-pl push@{$_{join"",sort/(.)/g}},$_}for(grep/ /,sort map{"}"x(@_=sort@$_)."@_"}%_){s/}//g
89.37	BoB (Best of Breed - referees)	Mon Apr 1 19:41:14 2002	$f{f,sort/./g}.=$_ for<>;$o{y/ //}.="@{[sort/.+/g]} 2"for%f;print+sort/\D+/g,for@o{2..$.}
89.39	Eugene van der Pijll	Mon Apr 1 23:53:44 2002	-pl push@{$o{"@{[sort/./g]}"}},$_}for(sort map'}'x@$_."@{[sort@$_]}",grep@$_>1,%o){y/}//d
89.39	Eugene van der Pijll	Tue Apr 2 00:01:15 2002	-pl push@{$o{"@{[sort/./g]}"}},$_}for(sort map'}'x@$_."@{[sort@$_]}",grep@$_>1,%o){y/}//d
89.40	Ton Hospel	Mon Apr 1 20:52:25 2002	$v{join"",sort/./g}.=$_ for sort<>;print map$_!=$^T&&/\D+/g,sort map$^T+s/ ^/ /mg.$_,@v{%v}
89.40	Eugene van der Pijll	Mon Apr 1 23:51:52 2002	-pl push@{$o{"@{[sort/./g]}"}},$_}for(sort map'~'x@$_."@{[sort@$_]}",grep@$_>1,%o){y/~//d
89.40	Piers Cawley	Tue Apr 2 19:30:15 2002	-pl @$g=sort@{$g="@{[sort/./g]}"},$_}for(sort grep/ \w/,map{"~"x@$_."@$_"}keys%::){y/~//d
89.40	Geoff Hubbard	Mon Apr 1 23:06:47 2002	$s{join'',sort m;.;g}.=$_ for sort<>;s;\d;;&&print for sort map{s;$/(.); $1;g.$_}values%s
89.42	Terje K	Fri Apr 5 07:24:52 2002	-l map$a{join'',sort split//}.=$_,sort<>;map{print$1if/\d\d(.*) /}sort map{8+y/ / /.$_}%a
89.43	Amir Karger	Tue Apr 2 19:34:10 2002	$o{join"",sort/(.)/g}.=$_ for sort<>;@r[s/\n\b/ /g].=$_ for sort values%o;print@r[1..$#r]
90.34	Rick Klement	Tue Apr 2 01:33:36 2002	map$s{r,sort/./g}.=$_,sort<>;print sort{$a=~y/ //-$b=~y/ //or$a cmp$b}map s/ ^/ /mg&&$_,%s
90.36	BoB (Best of Breed - referees)	Mon Apr 1 19:08:35 2002	$f{f,sort/./g}.=$_ for<>;$o{y/ //}.="@{[sort/.+/g]}$/2"for%f;print+sort/\D+/g,for@o{2..$.}
90.36	Juho Snellman	Mon Apr 1 21:02:15 2002	-p $a{"@{[sort/./g]}"}.=$_}for(sort map"@{[9x tr/\n//,sort/.+/g]}\n",grep/\n./,%a){s/9+.//
90.38	Jasper McCrea	Wed Apr 3 09:07:38 2002	-ln END{map{/ /&&print$'}sort map{$#$_&&join$",sort$#$_,@$_}%o}push@{$o{1,sort/./g}},/.+/g
90.40	John McNamara	Thu Apr 4 17:09:06 2002	map$j{join"",sort/./g}.=$_,<>;print grep/ /&s/\d+//,sort map{split;7*@_."@{[sort@_]}\n"}%j
90.41	Terje K	Thu Apr 4 18:34:16 2002	-l map$a{join'',sort split//}.=$_,sort<>;map{print$1if/\d\d(.*) /}sort map{8+s/ / /g.$_}%a
90.42	Michael Wrenn	Fri Apr 5 21:40:10 2002	map{$F{join'',sort/./g}=~s/(.*)/1$1 $_/}sort<>;map{s/\n+/\n/;s/.1+ //&&print}sort values%F
91.33	Petri Mikkelä	Sat Apr 6 22:55:03 2002	-ln $w{1,sort/./g}.=" $_"}{$x{/ /g,sort/\w*/g}=1for%w;s/ . \W*//&&s/\W/ /g&print for sort%x
91.33	Mtv Europe	Mon Apr 1 17:56:21 2002	$f{f,sort/./g}.=$_,for<>;$o{y/\n//}.="@{[sort/.+/g]}$/2"for%f;print+sort/\D+/g,for@o{2..$.}
91.33	BoB (Best of Breed - referees)	Mon Apr 1 18:16:27 2002	$i{f,sort/./g}.=$_,for<>;$o{y/\n//}.="@{[sort/.+/g]}$/2"for%i;print+sort/\D+/g,for@o{2..$.}
91.34	Piers Cawley	Tue Apr 2 14:55:08 2002	-lp $y{$g}=[sort@{$y{$g="@{[sort/./g]}"}},$_]}for(grep/ /,sort map{"{"x@$_."@$_"}%y){y/{//d
91.36	Juho Snellman	Mon Apr 1 20:39:07 2002	-p $a{"@{[sort/./g]}"}.=$_}for(sort map"@{[9x tr/\n//,sort/\S+/g]}\n",grep/\n./,%a){s/9+.//
91.37	Jay Lyerly	Tue Apr 2 22:30:46 2002	-ln $a=join'',sort split//;@$a=sort@$a,$_;$p{$a}=8+@$a."@$a";END{map{s/.\d//&&print}sort%p}
91.38	Peter Haworth	Fri Apr 5 17:50:04 2002	-pl push@{$w{0,sort/./g}},$_}@$_>1&&push@{$x[@$_]},"@{[sort@$_]}"for%w;for(map{sort@$_}@x){
91.40	John McNamara	Thu Apr 4 14:38:44 2002	map$j{join'',sort/./g}.=$_,<>;print grep/ /&s/\d+//,sort map{split;$=*@_."@{[sort@_]}\n"}%j
91.41	Lars Mathiesen	Thu Apr 4 14:53:03 2002	#!perl $s{"@{[sort split//]}"}.=$_ for sort<>;print sort grep{$s==s/\s\b/ /g}values%s while++$s<15
91.42	Arnaud ASSAD	Fri Apr 5 18:19:17 2002	-nl push@{$p{1,sort/./g}},$_;END{map{/(\d+)./,$1&&print$'}sort map{join' ',$#$_,sort@$_}%p}
91.43	Michael Wrenn	Fri Apr 5 18:16:54 2002	-l map{$F{join'',sort/./g}=~s/(.*)/1$1 $_/}sort<>;map{s/\n//g;s/.1+ //&&print}sort values%F
91.45	Ari Kauppi	Fri Apr 5 09:02:00 2002	-l map{($p{0,sort/(.)/g}.=" $_")=~s/./chr(1+ord$&)/e}sort<>;map{/ /&&print/([\w ])/g}sort%p
91.49	Yanick Champoux	Fri Apr 5 05:00:59 2002	map$h{"@{[sort/./g]}"}.=$_,sort<>;for$i(2..99){map{y/ //-$i||s/ \b/ /g&print}sort values%h}
92.33	Stephen Turner	Tue Apr 2 14:49:41 2002	map$s{o,sort/./g}.=$_,sort<>;print sort{$a=~y/ //<=>$b=~y/ //or$a cmp$b}map{s/ \b/ /g&&$_}%s
92.34	BoB (Best of Breed - referees)	Mon Apr 1 18:36:46 2002	$i{_,sort/./g}.=$_,for<>;$p{y%\n%%}.="@{[sort/.+/g]}$/2"for%i;print+sort/\D+/g,f or@p{2..$.}
92.37	dragonchild	Wed Apr 3 21:05:32 2002	map{$j{"@{[sort/./g]}"}.=$_}sort<>;map{/^[^a]/&&print$'}sort map{(a..t)[s!$/(?=.)! !g].$_}%j
92.37	Peter Haworth	Fri Apr 5 13:04:41 2002	-pl push@{$w{0,sort/./g}},$_}push@{$x[@$_]},"@{[sort@$_]}"for%w;for(map{sort@$_}@x[2..$#x]){
92.37	Tom Hargreaves	Wed Apr 3 16:14:20 2002	-nl push@{$_{join"",sort split//}},$_}{s/}//g>1&&print for sort map{"}"x(@_=sort@$_)."@_"}%_
92.38	dragonchild	Tue Apr 2 19:03:49 2002	map{$h{"@{[sort/./g]}"}.=$_}sort<>;map{/^[^a]/&&print$'}sort map{(a..z)[s!$/(?=.)! !g].$_}%h
92.38	Tom Hargreaves	Wed Apr 3 16:06:34 2002	-nl push@{$_{join'',sort split//}},$_}{s/}//g>1&&print for sort map{'}'x(@_=sort@$_)."@_"}%_
92.47	Yanick Champoux	Fri Apr 5 04:58:47 2002	map$h{"@{[sort/./g]}"}.=$_,sort<>;for$i(2..99){map{$i==y/ //&&s/ \b/ /g&print}sort values%h}
93.33	Mtv Europe	Mon Apr 1 17:42:24 2002	$f{f,sort/./g}.=$_ for<>;$o{y/\n/\n/}.="@{[sort/.+/g]}$/2"for%f;print sort/\D+/g for@o{2..$.}
93.38	Dave Tweed	Sun Apr 7 16:27:43 2002	-ln push@{$a{1,sort/./g}},$_;}{s/.//s,print for sort map chr(@$_)."@{[sort@$_]}",grep@$_>1,%a
93.39	Jasper McCrea	Tue Apr 2 18:20:39 2002	-l push@{$o{1,sort/./g}},/.+/g while<>;map{/ /&&print$'}sort map{$#$_&&join$",sort$#$_,@$_}%o
93.39	Steve Rushe	Wed Apr 3 10:56:25 2002	-l $m{1,sort/./g}.=$_ for sort<>;push@{$a[y/ / /]},$_ for%m;map{chop;/ /&&print}sort@$_ for@a
93.39	Philippe Bricout	Sat Apr 6 20:47:35 2002	$s{join2,sort/./g}.=$_.$"for sort<>;for$s(2..22){(@s=split)-$s||print"@s\n"for sort values%s}
93.46	Yanick Champoux	Fri Apr 5 04:57:05 2002	map$h{"@{[sort/./g]}"}.=$_,sort<>;for$i(2..99){map{$i==y/ //&&s/ \b/ /g&&print}sort values%h}
93.47	Adam Spiers	Tue Apr 2 14:54:28 2002	-ln END{/~~(\w.*)/&&print$+for sort map'~'x@$_."@$_",keys%::}@$s=sort$_,@{$s="@{[sort/./g]}"}
94.34	Alain "TopMach" Dupuis	Wed Apr 3 20:11:09 2002	-ln $o{1,sort/./g}.="$_ "}{for(%o){@a=sort split;push@{$#a},"@a"}for(1..15){print for sort@$_}
94.35	Chris Dolan	Wed Apr 3 20:13:12 2002	-ln push@{$a{2,sort/./g}},$_}{@$_<2||print"@$_"for sort{@$a-@$b||"@$a"cmp"@$b"}map[sort@$_],%a
94.35	Piers Cawley	Tue Apr 2 14:34:07 2002	-pl $y{$g}=[sort@{$y{$g="@{[sort/./g]}"}},$_]}for(sort map{"{"x@$_."@$_"}grep{@$_>1}%y){y/{//d
94.36	Sec	Sat Apr 6 00:07:50 2002	-ln push@{$p{join"",sort split//}},$_;END{map{s/.\d//&&print}sort map{8+@$_.join$",sort@$_}%p}
94.36	Samy Kamkar	Sat Apr 6 11:31:15 2002	map{$x{x,sort/./g}.=$_}sort<>;map{s/ \b/ /g,/ /&&print}sort{$a=~tr/ //-$b=~tr/ //||$a cmp$b}%x
94.37	Michael Wrenn	Fri Apr 5 16:46:37 2002	map{$F=join'',sort/./g;$F{$F}="1$F{$F} $_"}sort<>;map{s/\n / /g;s/.1+ //&&print}sort values%F
94.38	Jasper McCrea	Tue Apr 2 14:25:35 2002	-l push@{$o{1,sort/./g}},/.+/g while<>;map{s/.+? //&/ /&&print}sort map{join$",$#$_,sort@$_}%o
94.38	Steve Rushe	Wed Apr 3 09:08:11 2002	-l map{$m{1,sort/./g}.=$_}sort<>;push@{$a[y/ / /]},$_ for%m;map{chop&&/ /&&print}sort@$_ for@a
94.39	Keith Calvert Ivey	Tue Apr 2 01:53:52 2002	map$z{join'',sort/./g}.=$_,sort<>;s/ \b/ /g&&print for sort{$a=~y/ //<=>$b=~y/ //||$a cmp$b}%z
94.39	Jasper McCrea	Tue Apr 2 10:54:43 2002	-l push@{$h{1,sort/./g}},/.+/g while<>;s/.+? //&/ /&&print for sort map{join$",$#$_,sort@$_}%h
94.40	dragonchild	Tue Apr 2 14:00:39 2002	-l map{$h{"@{[sort/./g]}"}.=$_}sort<>;map{/^[^a]/&&print$'}sort map{chop;(a..z)[y/\n/ /].$_}%h
95.34	Rick Klement	Tue Apr 2 01:22:44 2002	map$s{join$=,sort/./g}.=$_,sort<>;print sort{$a=~y/ //-$b=~y/ //or$a cmp$b}map s/ ^/ /mg&&$_,%s
95.36	gimbo	Mon Apr 1 20:20:33 2002	-ln push@{$a{join"",sort/./g}},$_}{for$i(2..99){print for sort map@$_==$i?join$",sort@$_:(),%a}
95.36	Zephyr McLaughlin	Sun Apr 7 01:10:22 2002	map{$a=join"",sort split//;$s{$a}="~$s{$a}$_"}sort<>;map{s/ \b/ /g;s/~~+//&&print}sort values%s
95.37	Steve Rushe	Tue Apr 2 19:02:29 2002	-l map{$m{1,sort/./g}.=$_}sort<>;push@{$a[s/ / /g]},$_ for%m;map{chop&&/ /&&print}sort@$_ for@a
95.37	Eike Grote	Thu Apr 4 08:36:43 2002	#!perl -nl push@{$h{join'',sort/./g}},$_;END{map{s/. //s;print if/ /}sort map"@{[chr@$_,sort@$_]}",%h}
95.40	Philippe Bricout	Sat Apr 6 18:10:37 2002	$s{join2,sort/./g}.=$_.$"for sort<>;for$.(1..22){@s=split,$#s-$.||print"@s\n"for sort values%s}
95.42	Adam Spiers	Tue Apr 2 00:03:29 2002	-ln END{s/~~~.*1 //&&print for sort map'~'x@$_."@$_",keys%::}@$s=sort$_,@{$s="@{[sort/./g]}"},1
95.44	Yanick Champoux	Thu Apr 4 21:05:56 2002	map$h{"@{[sort/./g]}"}.=$_,sort<>;for$i(2..99){s/ \b/ /g,print for grep$i==y/ //,sort values%h}
96.36	Rick Klement	Mon Apr 1 22:06:31 2002	map$s{"@{[sort/./g]}"}.=$_,sort<>;print sort{$a=~y/ //-$b=~y/ //or$a cmp$b}map s/ ^/ /mg&&$_,%s
96.36	Rick Myers	Sun Apr 7 07:37:28 2002	map$i{p,sort/./g}.=$_,sort<>;map{/\d+/&&print$'}sort{$a<=>$b||$a cmp$b}map{$_=s/ (?=.)/ /g.$_}%i
96.40	John McNamara	Thu Apr 4 14:33:56 2002	map$h{join'',sort/./g}.=$_,<>;print for grep/ /&&s/\d+//,sort map{split;$=*@_."@{[sort@_]}\n"}%h
96.40	Martin Raspe	Sun Apr 7 19:38:16 2002	push@{$s{1,sort/./g}},/.+/g for sort<>;@$_>1&&print"@$_\n"for sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%s
96.40	Eric Roode	Sat Apr 6 23:40:01 2002	push@{$a{"@{[sort/./g]}"}},/(.+)/for<>;print grep s,[\2- ] ,,,sort map"@{[chr@$_,sort@$_]} ",%a;
96.43	Arnaud ASSAD	Fri Apr 5 16:20:56 2002	-nl push@{$p{1,sort/./g}},$_;END{map{print$2if/(\d+).(.*)/&&$1}sort map{join' ',$#$_,sort@$_}%p}
97.35	Michael Wrenn	Thu Apr 4 22:58:03 2002	-ln @F=sort/./g;$F{"@F"}=join' ',sort$_,split/ /,"1".$F{"@F"}}map{s/.1+ //&&print}sort values%F;{
97.36	Rick Klement	Mon Apr 1 20:49:45 2002	-p $s{join$,,sort/./g}.=$_}{print sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort/.+/g]} "x/ ./,%s
97.38	Eirik Berg Hanssen	Mon Apr 1 19:04:53 2002	-nl END{@$_>1&&print"@$_"for sort{@$a-@$b||"@$a"cmp"@$b"}%s}$*=$_;@$_=sort@$_,$*for$s{0,sort/./g}
97.39	John McNamara	Thu Apr 4 08:08:21 2002	-nl END{print for grep/ /&&s/\d+//,sort map$=*@$_."@{[sort@$_]}",%h}push@{$h{"@{[sort/./g]}"}},$_
98.35	Chris Dolan	Wed Apr 3 16:23:52 2002	map{chop;push@{$a{join1,sort/./g}},$_}sort<>;@$_>1&&print"@$_$/"for sort{@$a-@$b||"@$a"cmp"@$b"}%a
98.35	Zephyr McLaughlin	Sat Apr 6 07:09:28 2002	map{$a=join"",sort split//;$s{$a}="~$s{$a}~$_"}sort<>;map{s/ ~/ /g;s/~~~+//&&print}sort values(%s)
98.36	Rick Klement	Mon Apr 1 20:36:56 2002	-p $s{join$,,sort/./g}.=$_}{print sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort/.+/g]} "x/\n./,%s
98.36	Rick Myers	Wed Apr 3 23:58:43 2002	-l map$i{1,sort/./g}.=$_,sort<>;map{chop;y/ / /;/ /&&print}sort{$a=~y/ //<=>$b=~y/ //or$a cmp$b}%i
98.36	Josef Drexler	Thu Apr 4 06:59:07 2002	map{chop;push@{$o[$o{"@{[sort/(.)/g]}"}||=2+@o]},$_}sort<>;for$o(2..22){@$_-$o||print"@$_$/"for@o}
98.37	Stephen Turner	Tue Apr 2 11:54:53 2002	map$s{o,sort/./g}.=$_,sort<>;print map{s/ \b/ /g&&$_}sort{$a=~y/ //<=>$b=~y/ //or$a cmp$b}values%s
98.37	Rick Myers	Tue Apr 2 05:20:43 2002	-l map$i{1,sort/./g}.=$_,sort<>;chop,y/ / /,/ /&&print for sort{$a=~y/ //<=>$b=~y/ //or$a cmp$b}%i
98.38	Daniel Parshall	Fri Apr 5 01:22:48 2002	-l map{$a{join"",sort split//}.=$_}sort<>;map{y/~//d&&print}sort map{chop;"~"x y/\n/ /.$_}values%a
98.39	Daryl Olson	Sun Apr 7 03:24:56 2002	-an0 map{push@{$s[$j{join"",sort/./g}||=++$i]},$_}sort@F;for$h(2..99){map{print"@$_ "if@$_==$h}@s}
98.42	Yanick Champoux	Thu Apr 4 20:54:12 2002	map$h{"@{[sort/./g]}"}.=$_,sort<>;for$i(2..99){s/ (?=.)/ /g,print for grep$i==y/ //,sort values%h}
98.44	Arnaud ASSAD	Fri Apr 5 13:29:11 2002	-nl push@{$p{1,sort/./g}},$_;END{map{print/\d+.(.*)/}grep!/^0|-/,sort map{join' ',$#$_,sort@$_}%p}
98.46	Colin Meyer	Tue Apr 2 22:03:43 2002	-ln push@{$o{"@{[sort/./g]}"}},$_;END{s/\d+//,print for sort map@$_>1?10+@$_."@{[sort@$_]}":(),%o}
99.30	Mtv Europe	Mon Apr 1 16:29:22 2002	push@{$p{p,sort/./g}},$_ for<>;push@{$u{chomp@$_}},"@{[sort@$_]}$/"for%p;print sort@$_ for@u{2..$.}
99.33	Chris Dolan	Wed Apr 3 15:10:12 2002	-ln @a=sort/./g;$a{"@a"}=[sort@{$a{"@a"}},$_]}{map{@$_>1&&print"@$_"}sort{@$a-@$b||"@$a"cmp"@$b"}%a
99.36	Rick Myers	Tue Apr 2 04:39:51 2002	-l map{$i{1,sort/./g}.=$_}sort<>;chop,y/ / /,/ /&&print for sort{$a=~y/ //<=>$b=~y/ //or$a cmp$b}%i
99.36	Jay Lyerly	Tue Apr 2 21:38:50 2002	-ln $a=join//,sort split//;@$a=sort@$a,$_;$p{$a}=8+@$a."@$a";END{map{s/\d\d//&&print}sort values%p}
99.36	Steve Grazzini	Tue Apr 2 04:47:17 2002	chop,push@{$p{join'',sort/./g}},$_ for sort<>;@$_>1&&print"@$_\n"for sort{@$a-@$b||"@$a"cmp"@$b"}%p
99.37	japhy	Mon Apr 1 16:13:59 2002	-nl @$$s=sort$_,@${$s=\$s{_,sort/./g}}}{@$_>1&&print"@$_"for sort{@$a-@$b||$$a[a]cmp$$b[a]}values%s
99.38	Jasper McCrea	Tue Apr 2 10:53:26 2002	-l push@{$h{1,sort/./g}},/.+/g while<>;@a=map{join$",$#$_,sort@$_}%h;s/.+? //&/ /&&print for sort@a
99.38	BoB (Best of Breed - referees)	Mon Apr 1 16:11:25 2002	-nl @$$s=sort$_,@${$s=\$s{_,sort/./g}}}{@$_>1&&print"@$_"for sort{@$a-@$b||$$a[0]cmp$$b[0]}values%s
99.41	Honza Pazdziora	Thu Apr 4 20:13:23 2002	map{$h{"@{[sort/./g]}"}.=$_}sort<>;print map{y!0#!!d;$_}grep/0/,sort map{$|x s! (?=.)! !g.'#'.$_}%h
100.31	Terje K	Wed Apr 3 19:09:35 2002	-anl push@{$h{join'',sort split//}},$_}{map{s/\d\d/print$'/e}sort map{8+@$_.join' ',sort@$_}values%h
100.34	Rick Klement	Mon Apr 1 19:57:56 2002	-n $s{join$,,sort/./g}.=$_}{print sort{$a=~y/ //-$b=~y/ //||$a cmp$b}grep/ /,map"@{[sort/.+/g]} ",%s
100.34	Piers Cawley	Tue Apr 2 10:41:17 2002	-lp $c{$h}=[sort@{$c{$h="@{[sort/./g]}"}},$_]}for(sort map{chr(@$_)."@$_"}grep{!/ /*$#$_}%c){s/^.//s
100.34	Tom Hargreaves	Mon Apr 1 17:41:40 2002	-nl push@{$_{join'',sort split//}},$_}{s/~//g>1&&print for sort map{'~'x@$_.join' ',sort@$_}values%_
100.35	Zephyr McLaughlin	Fri Apr 5 23:22:06 2002	map{chop;$a=join"",sort split//;$s{$a}="~$s{$a} $_"}sort<>;map{s/~~+ //&&print"$_\n"}sort values(%s)
100.36	Smylers	Sat Apr 6 15:05:13 2002	chop,$s{join"",sort split//}.="$_ "for sort<>;/ $/,$a[y/ / /].=$`.$/for sort values%s;print@a[2..@a]
100.37	Jon Honeycutt	Thu Apr 4 09:12:32 2002	-l push@{$p{chop,sort/./g}},$_ for sort<>;$#$_&&print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}values%p
100.41	Honza Pazdziora	Thu Apr 4 19:58:25 2002	map{$h{"@{[sort/./g]}"}.=$_}sort<>;print map{y!0#!!d;$_}grep/0/,sort map{$|x s!\n(?=.)! !g.'#'.$_}%h
100.41	dragonchild	Mon Apr 1 21:04:21 2002	-l map{$h{"@{[sort/./g]}"}.=$_}sort<>;map{/^[^a]/&&print$'}sort map{chop;(a..z)[y/\n/ /].$_}values%h
101.33	Michael Wrenn	Thu Apr 4 14:50:37 2002	-ln @F=sort split//;$F{"@F"}=join' ',sort$_,split/ /,"1".$F{"@F"}}map{s/.1+ //&&print}sort values%F;{
101.33	Eric Wright	Wed Apr 3 11:53:48 2002	-nl push@{$n{join'',sort split''}},$_;END{$j{8+@$_.join' ',sort@$_}=8for%n;s'.\d''&&print for sort%j}
101.34	Chris Dolan	Mon Apr 1 20:06:59 2002	-ln @a=sort/./g;$a{"@a"}=[sort@{$a{"@a"}},$_]}{map{@$_>1&&print"@$_"}sort{@$a<=>@$b||"@$a"cmp"@$b"}%a
101.35	Rick Klement	Mon Apr 1 17:46:02 2002	-p $s{join"",sort/./g}.=$_}{map$\.=/ /&&$_,sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort/.+/g]} ",%s
101.36	Ton Hospel	Mon Apr 1 19:02:28 2002	-p $v{join"",sort/./g}.=$_}for(map{$_!=$^T and/(\D+)/g}sort map$^T-1+(split$/).(join" ",sort@_).$/,%v){
101.36	Rick Myers	Tue Apr 2 04:29:39 2002	-l map{$i{1,sort/./g}.=$_}sort<>;chop%i;y/ / /,/ /&&print for sort{$a=~y/ //<=>$b=~y/ //or$a cmp$b}%i
101.37	Smylers	Sat Apr 6 15:01:15 2002	chop,$s{join"",sort split//}.="$_ "for sort<>;/ $/,$a[y/ / /].="$`\n"for sort values%s;print@a[2..@a]
101.37	Steve Rushe	Tue Apr 2 18:36:34 2002	-l map{$m{1,sort/./g}.=$_}sort<>;map{push(@{$a[s/ / /g]},$_)}%m;for(@a){chop&&/ /&&print for sort@$_}
101.37	Eirik Berg Hanssen	Mon Apr 1 15:08:09 2002	-nl END{@$_>1&&print"@$_"for sort{@$a-@$b||"@$a"cmp"@$b"}%s}@s=sort/./g;$s{"@s"}=[sort@{$s{"@s"}},$_]
101.37	Jon Honeycutt	Tue Apr 2 20:45:06 2002	-l push@{$p{chop,sort/./g}},$_ for sort<>;@$_>1&&print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}values%p
101.38	japhy	Mon Apr 1 16:12:26 2002	-nl @$$s=sort$_,@${$s=\$s{_,sort/./g}}}{@$_>1&&print"@$_"for sort{@$a<=>@$b||$$a[a]cmp$$b[a]}values%s
101.39	japhy	Mon Apr 1 16:05:39 2002	-nl @$$s=sort$_,@${$s=\$s{_,sort/./g}}}{@$_>1&&print"@$_"for sort{@$a<=>@$b||$$a[0]cmp$$b[0]}values%s
102.31	Alain "TopMach" Dupuis	Wed Apr 3 16:54:40 2002	-ln push@{$o{1,sort/./g}},$_;if(eof){for(%o){$t=@o=sort@$_;push@$t,"@o"}for(2..15){print for sort@$_}}
102.33	Rick Myers	Tue Apr 2 03:54:15 2002	-l map{chop;$i{1,sort/./g}.="$_ "}sort<>;chop%i;/ /&&print for sort{$a=~y/ //<=>$b=~y/ //or$a cmp$b}%i
102.34	Smylers	Sat Apr 6 14:49:19 2002	chop,$s{join"",sort split""}.="$_ "for sort<>;s; $;\n;,$a[y; ; ;].=$_ for sort values%s;print@a[1..@a]
102.34	Ala Qumsieh	Sun Apr 7 21:07:04 2002	-nl push@{$_{"@{[sort/./g]}"}},$_}{map{@$_>1&&print"@$_"}sort{@$a<=>@$b||"@$a"cmp"@$b"}map[sort@$_],%_
102.35	Ton Hospel	Mon Apr 1 19:00:35 2002	-p $v{join"",sort/./g}.=$_}for(map{$_!=$^T and/(\D+)/g}sort map$^T-1+(split$/).(join" ", sort@_).$/,%v){
102.35	Jasper McCrea	Tue Apr 2 09:19:11 2002	-l push@{$h{1,sort/./g}},/.+/g while<>;push@a,join$",$#$_,sort@$_ for%h;s/.+? //&/ /&&print for sort@a
102.35	Ido Trivizki	Sun Apr 7 23:52:59 2002	push@{$a{sort(/(.)/g),a}},/(.+)/for+sort<>;print"@$_\n"for+sort{@$a<=>@$b||"@$a"cmp"@$b"}grep@$_>1,%a;
102.36	Ido Trivizki	Sat Apr 6 15:08:06 2002	push@{$a{sort(/(.)/g),a}},/(.+)/for sort<>;print"@$_\n"for sort{@$a<=>@$b||"@$a"cmp"@$b"}grep@$_>1,%a;
102.37	Ala Qumsieh	Sun Apr 7 02:46:16 2002	-nl push@{$x{join'',sort/./g}},$_}{map{@$_>1&&print"@$_"}sort{@$a<=>@$b||"@$a"cmp"@$b"}map[sort@$_],%x
102.38	Stephen Turner	Tue Apr 2 10:48:44 2002	map$s{join1,sort/./g}.=$_,sort<>;print map{s/ \b/ /g&&$_}sort{$a=~y/ //<=>$b=~y/ //||$a cmp$b}values%s
102.39	Jay Lyerly	Tue Apr 2 20:33:50 2002	-ln $a=join'',sort split//;@$a=sort(@$a,$_);$p{$a}=8+@$a."@$a";END{map{s/\d\d//?print:8}sort values%p}
103.34	Rick Klement	Mon Apr 1 15:21:59 2002	-ln $s{join'',sort/./g}.=$_.$/}{map/ /&&print,sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort/.+/g]}",%s
103.35	Rick Klement	Mon Apr 1 14:41:59 2002	-ln $h{join'',sort/./g}.=$_.$/}{map/ /&&print,sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort/.+/g]}",%h
103.36	Honza Pazdziora	Wed Apr 3 08:29:44 2002	-ln push@{$h{"@{[sort/./g]}"}},$_;END{s/00+ //&&print for sort map"@{[$|x@{$h{$_}},sort@{$h{$_}}]}",%h}
103.36	Jon Honeycutt	Tue Apr 2 20:24:05 2002	-l chop,push@{$p{1,sort/./g}},$_ for sort<>;@$_>1&&print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}values%p
103.36	Ari Kauppi	Wed Apr 3 09:20:37 2002	-nl @$a=sort@{$a=\@{$p{0,sort/(.)/g}}},$_}{map{print qq{@$_}if$#$_>0}sort{@$a<=>@$b||@$a[0]cmp@$b[0]}%p
103.37	Trevor Leffler	Thu Apr 4 19:07:05 2002	-ln push@{$a{join"",sort split//}},$_;END{map{s/~//g>1&&print}sort map{@a=sort@$_;"~"x@a."@a"}values%a}
103.37	Ido Trivizki	Sat Apr 6 00:38:25 2002	push@{$a{sort(split""),a}},/(.+)/for sort<>;print"@$_\n"for sort{@$a<=>@$b||"@$a"cmp"@$b"}grep@$_>1,%a;
103.38	Philippe Bricout	Thu Apr 4 16:26:17 2002	$,=chop,$w{join1,sort/./g}.=$_.$"for sort<>;chop%w;print((grep{$w==y/ //}sort values%w),'')while$w++<55
103.38	Eirik Berg Hanssen	Mon Apr 1 14:56:14 2002	-nl END{@$_>1&&print"@$_"for+sort{@$a-@$b||$$a[0]cmp$$b[0]}%s}@s=sort/./g;$s{"@s"}=[sort@{$s{"@s"}},$_]
103.44	Colin Meyer	Tue Apr 2 21:12:40 2002	-ln push@{$p{"@{[sort/./g]}"}},$_;END{s/\d+//,print foreach sort map@$_>1?10+$#$_."@{[sort@$_]}":(),%p}
104.29	Mtv Europe	Mon Apr 1 08:08:59 2002	push@{$p{"@{[sort/./g]}"}},$_ for<>;push@{$u{chomp@$_}},"@{[sort@$_]}$/"for%p;print sort@$_ for@u{2..$.}
104.31	Mtv Europe	Mon Apr 1 07:50:17 2002	push@{$q{"@{[sort/./g]}"}},$_ for<>;push@{$w{chomp@$_}},"@{[sort@$_]}$/"for%q;print sort@$_ for@w{2..$.}
104.35	John McNamara	Wed Apr 3 09:42:11 2002	-nl END{print"@$_"for grep@$_>1,sort{@$a-@$b||"@$a"cmp"@$b"}%s}$s{$s}=[sort$_,@{$s{$s="@{[sort/./g]}"}}]
104.35	Andrew Savige	Tue Apr 2 08:25:26 2002	-ln push@{$]{1,sort/./g}},$_}{print for sort{$a=~y- ---$b=~y| ||||$a cmp $b}grep/ /,map"@{[sort@$_]}",%]
104.36	Chris Dolan	Mon Apr 1 16:42:56 2002	-ln END{map{@$_>1&&print"@$_"}sort{@$a<=>@$b||"@$a"cmp"@$b"}%a}@a=sort/./g;$a{"@a"}=[sort@{$a{"@a"}},$_]
104.37	Antti Lankila	Tue Apr 2 20:13:47 2002	map$_{"@{[sort/./g]}"}.=$_,sort<>;@$_>1&&print"@$_$/"for sort{@$a-@$b||"@$a"cmp"@$b"}map[split],values%_
104.38	Philippe Bricout	Thu Apr 4 13:24:16 2002	$,=chop,$h{join'',sort/./g}.=$_.$"for sort<>;chop%h;print((grep{$c==y/ //}sort values%h),'')while$c++<15
104.39	Honza Pazdziora	Wed Apr 3 07:12:58 2002	-ln push@{$h{join'',sort/./g}},$_;END{s/00+ //&&print for(sort map{@e=@{$h{$_}};join$",$|x@e,sort@e}%h)}
104.39	Amir Karger	Mon Apr 1 20:22:06 2002	$h{join"",sort /(.)/g}.=$_ for sort<>; print sort{$a=~y/ //-$b=~y/ //||$a cmp$b}grep s/\n\b/ /g,values%h
104.41	Yanick Champoux	Tue Apr 2 18:22:24 2002	push@{$h{"@{[sort/./g]}"}},/(.+)/for sort<>;@$_>1&&print"@$_ "for sort{@$a-@$b||$$a[0]cmp$$b[0]}values%h
105.34	Sec	Fri Apr 5 18:48:34 2002	-ln push@{$p{join"",sort split//}},$_;END{map{s/.//s&&print}sort map{chr(@$_).join($",sort@$_)if@$_>1}%p}
105.34	pom	Wed Apr 3 09:30:16 2002	-ln push@{$p{join0,sort/./g}},$_}{print"@$_"for sort{@$a-@$b||"@$a"cmp"@$b"}grep{--(@$_=sort@$_)}values%p
105.36	Trevor Leffler	Thu Apr 4 00:23:14 2002	-ln push@{$_{join"",sort split//}},$_;END{map{print if s/~//g>1}sort map{@_=sort@$_;"~"x@_."@_"}values%_}
105.39	Eric Roode	Sat Apr 6 22:10:36 2002	push@{$a{"@{[sort/./g]}"}},/(\w+)/for<>;print grep s/(\W+)//&$1ge"\cB",sort map"@{[chr@$_,sort@$_]} ",%a;
105.40	Yanick Champoux	Tue Apr 2 18:10:41 2002	map$h{"@{[sort/./g]}"}.=$_,sort<>;@$_>1&&print"@$_ "for sort{@$a-@$b||$$a[0]cmp$$b[0]}map[/.+/g],values%h
106.34	Eric Wright	Tue Apr 2 19:58:25 2002	-nl push@{$n{join'',sort split''}},$_;END{$n{8+@$_.join' ',sort@$_}=8for%n;s'.\d''&&print for sort keys%n}
106.34	Eric Wright	Tue Apr 2 21:17:25 2002	-nl push@{$n{join'',sort split''}},$_;END{$n{8+@$_.join' ',sort@$_}=8for%n;s'.\d''&&print for sort keys%n}
106.38	dragonchild	Mon Apr 1 20:31:02 2002	-l map{chop;push@{$h{"@{[sort/./g]}"}},$_}sort<>;map{/^[^a]/&&print$'}sort map{(a..z)[$#$_]."@$_"}values%h
106.38	Eirik Berg Hanssen	Mon Apr 1 14:31:05 2002	-nl END{@$_>1&&print"@$_"for sort{@$a-@$b||$$a[0]cmp$$b[0]}%s}for$f($s{join"",sort/(.)/g}){@$f=sort@$f,$_}
106.39	Michael Robinson	Sun Apr 7 04:25:34 2002	-ln END{@$_>1&&print"@$_"for sort{@$a<=>@$b||@$a[0]cmp@$b[0]}map[sort@$_],%w}push@{$w{"@{[sort/./g]}"}},$_
107.29	Gareth McCaughan	Mon Apr 1 03:16:01 2002	-l map{$_{join'',sort split//}.=' '.$_;}<>;map{s/.//s-/ /||print}sort map{chr(tr/ //).join' ',sort split}%_
107.30	Terje K	Wed Apr 3 18:14:04 2002	-anl map{push@{$h{join'',sort split//}},$_}@F}{map{s/\d\d/print$'/e}sort map{8+@$_.join' ',sort@$_}values%h
107.31	Alain "TopMach" Dupuis	Wed Apr 3 03:11:23 2002	-ln push@{$o{join//,sort/./g}},$_;if(eof){for(%o){$o=@o=sort@$_;push@$o,"@o"}for(2..15){print for sort@$_}}
107.33	John McNamara	Tue Apr 2 11:41:46 2002	-n END{$_[@$_]{"@$_\n"}=''for%h;print sort%{$_[$_]}for+2..@_}chop;$h{$x}=[sort$_,@{$h{$x="@{[sort/./g]}"}}]
107.33	Jon Honeycutt	Tue Apr 2 10:33:24 2002	-l chop,push@{$p{1,sort split//}},$_ for sort<>;@$_>1&&print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}values%p
107.33	Sheldon Fuchs	Sun Apr 7 20:14:37 2002	-l map{chop;$a{join'',sort/./g}.="$_ "}sort<>;map{chop;/ /&&print}sort{$a=~y/ / /<=>$b=~y/ / /||$a cmp$b}%a
107.34	Stephen Turner	Mon Apr 1 21:42:51 2002	map{chop;push@{$s{join1,sort/./g}},$_}sort<>;print map@$_>1&&"@$_$/",sort{@$a<=>@$b||"@$a"cmp"@$b"}values%s
107.34	Eric Wright	Tue Apr 2 19:20:45 2002	-nl push@{$n{join'',sort split''}},$_;END{$j{8+@$_.join' ',sort@$_}=8for%n;s'\d\d''&&print for sort keys%j}
107.34	Martin Raspe	Sat Apr 6 21:46:48 2002	chop,push@{$s{join"",sort split""}},$_ for sort<>;@$_>1&&print"@$_\n"for sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%s
107.35	Eric Wright	Tue Apr 2 19:05:27 2002	-nl push@{$n{join'',sort split''}},$_;END{$j{8+@$_.join' ',sort@$_}=8for%n;s/\d\d//&&print for sort keys%j}
107.36	Robert Mah	Tue Apr 2 00:38:08 2002	-l chop,push@{$g{join"",sort/./g}},$_ for sort<>;$#$_&&print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}values%g
107.36	Ala Qumsieh	Wed Apr 3 04:55:40 2002	-nl push@{$_{join'',sort/./g}},$_}{map{$#$_&&print"@$_"}sort{@$a<=>@$b||"@$a"cmp"@$b"}map[sort@$_],values%_
107.36	Marcelo E. Magallon	Tue Apr 2 08:37:50 2002	-nl $w{1,sort/./g}.=" $_"}{$,=' ';@$_>1&&print@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort split]}%w
107.36	Marcelo E. Magallon	Tue Apr 2 09:47:09 2002	-nl $w{1,sort/./g}.=" $_"}{$,=' ';@$_>1&&print@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort split]}%w
107.37	Arnaud ASSAD	Thu Apr 4 15:58:03 2002	-nl push@{$p{join//,sort/./g}},$_;END{map{print"@$_"}sort{@$a<=>@$b||"@$a"cmp"@$b"}grep{(@$_=sort@$_)>1}%p}
107.38	Joost Diepenmaat	Thu Apr 4 09:26:43 2002	-nl *t=\@{$d{0,sort split//}};@t=sort@t,$_;END{@$_-1&&print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}values%d}
107.38	Eirik Berg Hanssen	Mon Apr 1 14:11:43 2002	-nl END{@$_>1&&print"@$_"for sort{@$a-@$b||$$a[0]cmp$$b[0]}%s}$f=$_;@$_=sort@$_,$f for$s{join"",sort/(.)/g}
107.45	Yanick Champoux	Tue Apr 2 17:00:08 2002	map$h{"@{[sort/(.)/g]}"}.=$_,sort<>;y| | |>s| $| |&&print for sort{$a=~y| ||<=>$b=~y| ||||$a cmp$b}values%h
108.29	Gareth McCaughan	Mon Apr 1 03:14:39 2002	-l map{$_{join'',sort split//}.=' '.$_;}<>;map{s/.//s&&/ /&&print}sort map{chr(tr/ //).join' ',sort split}%_
108.32	Alain "TopMach" Dupuis	Tue Apr 2 21:45:53 2002	-ln push@{$o{join'',sort/./g}},$_;do{for(%o){$t=@t=sort@$_;push@$t,"@t"}for(2..15){print for sort@$_}}if eof
108.35	pom	Tue Apr 2 12:44:01 2002	-ln push@{$p{join"",sort/./g}},$_}{print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}grep{(@$_=sort@$_)>1}values%p
108.35	pom	Tue Apr 2 12:59:30 2002	-ln push@{$p{join"",sort/./g}},$_}{print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}grep{(@$_=sort@$_)>1}values%p
108.35	Trevor Leffler	Wed Apr 3 23:49:39 2002	-ln push@{$_{join"",sort split//,$_}},$_;END{map{print if s/~//g>1}sort map{@_=sort@$_;"~"x@_."@_"}values%_}
108.36	Prakash Kailasa	Tue Apr 2 05:58:00 2002	-ln END{$#$_&&print"@$_"for sort{@$a-@$b||@$a[0]cmp@$b[0]}values%a}$a{$a}=[sort$_,@{$a{$a="@{[sort/./g]}"}}]
108.36	John W. Krahn	Tue Apr 2 07:01:13 2002	-nl push@{$s{join"",sort/./g}},$_}{@$_>1&&print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}map{[sort@$_]}values%s
108.37	Rick Klement	Mon Apr 1 14:01:32 2002	map$h{join'',sort/./g}.=$_,<>;map/ /&&(print$_.$/),sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort/.+/g]}",%h
108.37	dragonchild	Mon Apr 1 20:02:21 2002	-l map{chop;push@{$h{"@{[sort/./g]}"}},$_}sort<>;map{/^a/||s/.//&&print}sort map{(a..z)[$#$_]."@$_"}values%h
108.37	Peter Haworth	Fri Apr 5 12:03:31 2002	-pl push@{$w{(0,sort/./g)}},$_}for(sort{@$a<=>@$b||$a->[0]cmp$b->[0]}grep+(@$_=sort@$_)>1,values%w){$_="@$_"
108.38	Ben Goldberg	Fri Apr 5 23:00:19 2002	-nl push@{$a{join'',sort/./g}},$_;END{$#$_&&print"@$_"for sort{@$a-@$b||"@$a"cmp"@$b"}map[sort@$_],values%a}
108.39	Amir Karger	Mon Apr 1 20:11:42 2002	$h{join"",sort split//}.=$_ for sort<>; print sort{$a=~y/ //-$b=~y/ //||$a cmp$b}grep s/\n(?=.)/ /g,values%h
108.39	Gabor Szabo	Tue Apr 2 16:53:32 2002	-nl $k{$w=join'',sort split//}++;@$w=sort@$w,$_}for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}keys%k){print"@$_"if$#$_
108.45	Yanick Champoux	Tue Apr 2 01:52:28 2002	$h{"@{[sort/(.)/g]}"}.=$_ for sort<>;y| | |>s| $| |&&print for sort{$a=~y| ||<=>$b=~y| ||||$a cmp$b}values%h
109.29	Juho Snellman	Mon Apr 1 21:01:56 2002	-p $a{"@{[sort/./g]}"}.=$_}for(sort map"@{[9x tr/\n//,sort/.+/g]}\n",grep/\n./,%a){s/9+.//
109.31	Sheldon Fuchs	Fri Apr 5 03:50:01 2002	-l map{chop;$a{join'',sort/./g}.="$_ "}sort<>;map{chop;/ /&&print}sort{$a=~s/ / /g<=>$b=~s/ / /g||$a cmp$b}%a
109.37	dragonchild	Mon Apr 1 18:48:16 2002	map{chop;push@{$h{"@{[sort/./g]}"}},$_}sort<>;@$_>1&&print"@$_\n"for sort{@$a<=>@$b||@$a[0]cmp@$b[0]}values%h
109.39	Honza Pazdziora	Tue Apr 2 20:08:09 2002	-ln push@{$h{join'',sort/./g}},$_;END{s/00+ //&&print for(sort map{join$",$|x@{$h{$_}},sort@{$h{$_}}}keys%h)}
109.39	Samy Kamkar	Wed Apr 3 01:52:52 2002	-nl END{map@$_>1?print"@$_":1,sort{@$a-@$b||$$a[0]cmp$$b[0]}map[sort@$_],%-}push@{$-{join"",sort/./g}},/(.+)/
109.40	Michael Robinson	Sat Apr 6 22:28:21 2002	-ln push@{$w{"@{[sort(/./g)]}"}},$_;END{@$_>1&&print"@$_"for sort{@$a<=>@$b||@$a[0]cmp@$b[0]}map[sort@$_],%w}
110.31	Erik Johansen	Sun Apr 7 16:01:10 2002	-ln END{map{@_=sort@$_;push@{$s[@_]},"@_"}values%s;map{/ /&&print}map{sort@$_}@s}push@{$s{"",sort+split//}},$_
110.32	Paul Seamons	Mon Apr 1 23:08:43 2002	map{chomp;push@{$t{join"",sort/(.)/g}},$_}<>;push@{$r[@$_]},"@{[sort@$_]} "for%t;print grep{/ /}sort@$_ for@r;
110.33	Rick Klement	Mon Apr 1 07:05:05 2002	-ln push@{$h{"@{[sort/./g]}"}},$_}{map/ /&&print,sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort@$_]}",values%h
110.34	Sec	Fri Apr 5 18:09:13 2002	-ln push@{$p{"@{[sort split//]}"}},$_;END{map{print"@$_"if@$_>1}sort{@$a<=>@$b||"@$a"cmp"@$b"}map[sort@$_],%p}
110.35	Ala Qumsieh	Wed Apr 3 04:15:37 2002	-nl push@{$_{join'',sort/./g}},$_}{map{$#$_&&print"@$_"}sort{@$a<=>@$b||"@$a"cmp"@$b"}map$_=[sort@$_],values%_
110.36	dragonchild	Mon Apr 1 18:01:00 2002	chop&&push@{$h{"@{[sort/./g]}"}},$_ for sort<>;@$_>1&&print"@$_\n"for sort{@$a<=>@$b||@$a[0]cmp@$b[0]}values%h
110.38	Ben Goldberg	Fri Apr 5 22:44:51 2002	-nl push@{$a{join'',sort/./g}},$_;END{$#$_&&print"@$_"for sort{@$a-@$b||$$a[0]cmp$$b[0]}map[sort@$_],values%a}
111.28	tinita	Fri Apr 5 22:20:34 2002	map{chomp,push@{$s{"@{[sort split//]}"}},$_}<>;map{@_=sort@$_;push@{$t[@_]},"@_$/"if@_>1}%s;print sort@$_ for@t
111.29	Terje K	Wed Apr 3 14:02:45 2002	-anl map{push@{$h{join'',sort split//}},$_}@F}{map{s/..//;print}sort grep/ /,map{9+@$_.join' ',sort@$_}values%h
111.31	Benoît Chauvet	Thu Apr 4 22:59:01 2002	-nl END{push@{$r{@{$_}}},join$",sort@{$_}for%t;$_&&print sort@{$_}for@r{2..99}}push@{$t{join$,=$/,sort/./g}},$_
111.32	Qingning Huo	Thu Apr 4 21:47:31 2002	-n $_{"@{[sort split//]}"}.=$_}{map/ /&&print,sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort split]} ",values%_
111.32	Ido Trivizki	Fri Apr 5 17:20:34 2002	map{chop,push@{$a{sort(split""),1}},$_}sort<>;print"@$_\n"for sort{@$a<=>@$b||"@$a"cmp"@$b"}grep@$_>1,values%a;
111.33	Michael Ching	Tue Apr 2 01:20:04 2002	map{push@{$a{"@{[sort+split//]}"}},$_}sort<>;print"@$_\n"for+sort{@$a<=>@$b||@$a[0]cmp@$b[0]}grep{chomp@$_>1}%a
111.33	Jon Honeycutt	Tue Apr 2 09:53:01 2002	-l chop,push@{$p{join0,sort split//}},$_ for sort<>;@$_>1&&print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}values%p
111.33	Evan A. Zacks	Tue Apr 2 19:37:52 2002	-lp @{$a{$b}}=sort@{$a{$b="@{[sort/./g]}"}},$_}{$\='';@$_>1and$\.="@$_\n"for sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%a
111.33	Evan A. Zacks	Tue Apr 2 21:17:32 2002	-lp @{$a{$b}}=sort@{$a{$b="@{[sort/./g]}"}},$_}{$\='';@$_>1and$\.="@$_\n"for sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%a
111.34	Sec	Fri Apr 5 17:23:39 2002	-ln push@{$p{"@{[sort split//]}"}},$_;END{map{print"@$_"if$#$_>0}sort{@$a<=>@$b||"@$a"cmp"@$b"}map[sort@$_],%p}
111.37	Yanick Champoux	Mon Apr 1 23:45:10 2002	-nl push@{$h{"@{[sort/(.)/g]}"}},$_}{@$_>1&&print"@$_"for sort{@$a<=>@$b||$$a[0]cmp$$b[0]}map[sort@$_],values%h
111.38	Steffen Müller	Tue Apr 2 09:17:42 2002	-nl push@{$a{join"",sort/./g}},$_;END{/ /&&print for sort{$a=~y/ //<=>$b=~y/ //||$a cmp$b}map"@{[sort@$_]}",%a}
111.38	Gabor Szabo	Tue Apr 2 15:28:44 2002	-nl $w=join'',sort split//;$k{$w}++;@$w=sort@$w,$_}for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}keys%k){print"@$_"if$#$_
111.40	Peter Haworth	Tue Apr 2 13:05:47 2002	-pl push@{$w{join'',sort/./g}},$_}for(sort{@$a<=>@$b||$a->[0]cmp$b->[0]}grep+(@$_=sort@$_)>1,values%w){$_="@$_"
112.29	Gareth McCaughan	Mon Apr 1 03:13:24 2002	-l map{$_{join'',sort split//}.=' '.$_;}<>;map{s/.//s&&print}sort map{/ .* /s&&chr(tr/ //).join' ',sort split}%_
112.29	Alain "TopMach" Dupuis	Tue Apr 2 19:16:05 2002	-ln push@{$o{join'',sort split''}},$_;do{for(%o){$t=@t=sort@$_;push@$t,"@t"}for(2..20){print for sort@$_}}if eof
112.30	Sheldon Fuchs	Thu Apr 4 07:10:53 2002	-l map{/$/;$a{join'',sort split''}.="$` "}sort<>;map{chop;/ /&&print}sort{$a=~s/ / /g<=>$b=~s/ / /g||$a cmp$b}%a
112.31	Qingning Huo	Wed Apr 3 22:00:28 2002	-n $_{"@{[sort split//]}"}.=$_}{map/ /&&print,sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort split]}\n",values%_
112.32	Erik Johansen	Sun Apr 7 15:52:33 2002	-ln END{map{@_=sort@$_;push@{$f[@_]},"@_"}values%f;map{print}map{sort@$_}@f[2..@f]}push@{$f{"",sort+split//}},$_
112.34	Prakash Kailasa	Tue Apr 2 05:22:39 2002	-ln END{print"@$_"for sort{@$a-@$b||@$a[0]cmp@$b[0]}grep@$_-1,values%a}$a{$a}=[sort@{$a{$a="@{[sort/./g]}"}},$_]
112.34	Steve Rushe	Mon Apr 1 12:40:26 2002	-l chop(@_=<>);$x{1,sort/./g}.="$_ "for sort@_;for(sort{$a=~s/ / /g<=>$b=~s/ / /g||$a cmp$b}%x){chop;/ /&&print}
112.35	Marcelo E. Magallon	Tue Apr 2 08:35:50 2002	-nl $w{join'',sort/./g}.=" $_"}{$,=' ';@$_>1&&print@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort split]}%w
112.38	Steffen Müller	Tue Apr 2 00:21:05 2002	-nl push@{$a{join'',sort/./g}},$_;END{/ /&&print for sort{$a=~y/ //<=>$b=~y/ //||$a cmp$b}map{"@{[sort@$_]}"}%a}
113.35	Ala Qumsieh	Mon Apr 1 21:57:25 2002	-nl push@{$x{join'',sort/./g}},$_}{map{print"@$_"}sort{@$a<=>@$b||"@$a"cmp"@$b"}map$_=[sort@$_],grep$#$_,values%x
113.35	Prakash Kailasa	Tue Apr 2 04:59:31 2002	-ln $a{$a}=[sort@{$a{$a="@{[sort/./g]}"}},$_];END{print"@$_"for sort{@$a-@$b||@$a[0]cmp@$b[0]}grep@$_>1,values%a}
113.35	Steve Rushe	Mon Apr 1 12:40:06 2002	-l chop(@_=<>);$x{1,sort/./g}.="$_ "for sort@_;for(sort{$a=~s/ / /g<=>$b=~s/ / /g|| $a cmp$b}%x){chop;/ /&&print}
113.35	Paul Gaborit	Thu Apr 4 11:26:12 2002	-nl push@{$_{join"",sort/./g}},$_;END{map{@_=sort@$_;push@{$a[@_]},"@_"if($#_)}values%_;map{map{print}sort@$_}@a}
113.36	Gabor Szabo	Tue Apr 2 14:56:20 2002	-nl $w=join'',sort split//;$k{$w}++;@$w=sort@$w,$_;}for(sort{@$a<=>@$b or$$a[0]cmp$$b[0]}keys%k){print"@$_"if$#$_
113.38	Colin Meyer	Tue Apr 2 00:56:40 2002	-ln push@{$p{"@{[sort/./g]}"}},$_;END{print"@$_"foreach sort{@$a<=>@$b or"@$a"cmp"@$b"}map{@$_>1?[sort@$_]:()}%p}
113.40	Michael Robinson	Sat Apr 6 11:57:43 2002	-ln push@{$w{join'',sort(/./g)}},$_;END{for(sort{@$a<=>@$b||@$a[0]cmp@$b[0]}map{[sort@$_]}%w){print"@$_"if@$_>1}}
114.30	Gareth McCaughan	Mon Apr 1 02:59:05 2002	-l map{$_{join'',sort split//}.=' '.$_;}<>;map{s/.//s-/ /||print;}sort map{chr(tr/ //).join' ',sort split}values%_
114.34	Dennis Haney	Mon Apr 1 22:27:01 2002	map{chop;push@{$n{join"",sort split//}},$_}sort<>;@$_>1&&print"@$_\n"for sort{@$a<=>@$b||$$a[0]cmp$$b[0]}values%n;
114.35	John McNamara	Tue Apr 2 11:36:56 2002	-n END{$_[@$_]{"@$_\n"}=''for values%h;print sort%{$_[$_]}for+2..@_}chop;$h{$x}=[sort$_,@{$h{$x="@{[sort/./g]}"}}]
114.36	Jeremy Madea	Sat Apr 6 02:09:13 2002	-ln $s="@{[sort/(.)/g]}";$a{$s}=[sort@{$a{$s}},$_];END{(@$_>1)&&print"@$_"for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%a)}
114.37	Simon Whitaker	Thu Apr 4 16:50:55 2002	-ln push@{$u{join0,sort split//}},$_;END{for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}map{[sort@$_]}%u){@$_>1&&print"@$_"}}
115.28	Terje K	Wed Apr 3 10:28:18 2002	-anl map{push@{$h{join'',sort split//}},$_}@F}{map{s/..//;print}sort grep/ /,map{9+@{$_}.join' ',sort@{$_}}values%h
115.30	Gareth McCaughan	Mon Apr 1 02:54:55 2002	-l map{$_{join'',sort split//}.=' '.$_;}<>;map{s/.//s&&/ /&&print;}sort map{chr(tr/ //).join' ',sort split}values%_
115.34	Dennis Haney	Mon Apr 1 22:07:32 2002	chop&&push@{$n{join"",sort split//}},$_ for sort<>;@$_>1&&print"@$_\n"for sort{@$a<=>@$b||$$a[0]cmp$$b[0]}values%n;
115.35	pom	Tue Apr 2 11:45:50 2002	-ln push@{$p{join"",sort/./g}},$_}{print"@$_"for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}grep{$_=[sort@$_];@$_>1}values%p
115.36	chr0	Tue Apr 2 22:55:41 2002	-ln $j=join"",sort/./g;@{$p{$j}}=sort($_,@{$p{$j}})}{$#$_&&print"@$_"for sort{$#$a-$#$b||$a->[0]cmp$b->[0]}values%p
115.37	Simon Whitaker	Thu Apr 4 16:31:38 2002	-ln push@{$u{join"",sort split//}},$_;END{for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}map{[sort@$_]}%u){@$_>1&&print"@$_"}}
115.37	Ben Goldberg	Fri Apr 5 22:39:43 2002	-nl push@{$a{join'',sort/./g}},$_;END{print "@$_"for sort{@$a-@$b||$$a[0]cmp$$b[0]}map[sort@$_],grep@$_>1,values%a}
115.39	Yanick Champoux	Mon Apr 1 17:32:45 2002	-ln END{map{@$_>1&&print"@$_"}sort{@$a<=>@$b||$$a[0]cmp$$b[0]}map[sort split],values%h}$h{join'',sort/(.)/g}.=" $_"
116.27	Gareth McCaughan	Mon Apr 1 03:35:20 2002	-l map{$_{join'',sort split//}.=' '.$_;}<>;map{s/\d+//-/ /||print}sort{$a<=>$b}sort map{tr/ //.join' ',sort split}%_
116.32	Erik Johansen	Sun Apr 7 15:45:42 2002	-ln END{map{@_=sort@$_;push@{$f[@_]},"@_"}values%f;map{print}map{sort@$_}@f[2..@f]}push@{$f{join"",sort+split//}},$_
116.33	Sheldon Fuchs	Wed Apr 3 04:05:29 2002	-l map{/.*/;push@{$a{join'',sort split''}},$&}sort<>;map{@$_>1&&print join' ',@$_}sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%a
116.34	Michael Wrenn	Thu Apr 4 15:46:18 2002	while(<>){chop;@F=sort split//;$F{"@F"}=join' ',sort$_,split/ /,"1".$F{"@F"}}map{s/.1+ //&&print"$_\n"}sort values%F
116.34	Juho Snellman	Mon Apr 1 16:15:20 2002	-ln $a{"@{[sort/./g]}"}.="$_ "}{/ /?print:0for sort{$a=~tr/ //<=>$b=~tr/ //or$a cmp$b}map{"@{[sort/\S+/g]}"}values%a
116.36	gimbo	Mon Apr 1 02:20:30 2002	-ln push@{$a{join"",sort/./g}},$_}{print for sort{$a=~y/ //<=>$b=~y/ //||$a cmp$b}map$#$_?join$",sort@$_:(),values%a
116.37	Peter Haworth	Tue Apr 2 13:02:12 2002	-pl push@{$w{join'',sort split//}},$_}for(sort{@$a<=>@$b||$a->[0]cmp$b->[0]}grep+(@$_=sort@$_)>1,values %w){$_="@$_"
117.31	Gareth McCaughan	Mon Apr 1 02:03:09 2002	-l map{$_{join'',sort split//}.=' '.$_;}<>;map{s/.(.* )/$1/s&&print;}sort map{chr(tr/ //).join' ',sort split}values%_
117.38	Yanick Champoux	Mon Apr 1 15:59:29 2002	-ln END{map/ /&&print,sort{$a=~y/ //<=>$b=~y/ //||$a cmp$b}map"@{[sort split]}",values%h}$h{join'',sort/(.)/g}.=" $_"
117.38	Jay Lyerly	Tue Apr 2 16:04:27 2002	-ln push@l,$a=join'',sort split//;@$a=sort(@$a,$_);END{map@$_-1?$p{9+@$_."@$_"}=1:0,@l;map{s/\d//g;print}sort keys%p}
118.27	Alain "TopMach" Dupuis	Tue Apr 2 17:04:47 2002	-ln push@{$o{join'',sort split''}},$_;do{for(%o){$t=@t=sort@{$o{$_}};push@$t,"@t"}for(2..20){print for sort@$_}}if eof
118.31	Benoît Chauvet	Tue Apr 2 14:49:10 2002	-nl END{push@{$r{@{$_}}},join$",sort@{$_}for values%t;$_&&print sort@{$_}for@r{2..99}}push@{$t{join$,=$/,sort/./g}},$_
118.31	Jaakko Hyvätti	Fri Apr 5 07:45:52 2002	-nl $a=\@{$a{join'',sort split//}};@$a=sort@$a,$_;if(eof){for(sort{$#$a<=>$#$b||"@$a"cmp"@$b"}%a){print"@$_"if$#$_>0}}
118.35	Chris Dolan	Mon Apr 1 15:13:17 2002	-ln END{map{print join$",@$_ if(@$_>1)}sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%a}$a=join"",sort/./g;$a{$a}=[sort@{$a{$a}},$_]
118.36	Marcelo E. Magallon	Tue Apr 2 08:30:03 2002	-nl $w{join'',sort/./g}.=" $_"}{$,=' ';@$_>1&&print@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort split]}values%w
119.32	Evan A. Zacks	Tue Apr 2 19:06:26 2002	chomp,push@{$a{"@{[sort/./g]}"}},$_ for<>;print map"@$_\n",sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort@$_]}grep@$_>1,%a
119.34	pom	Tue Apr 2 10:33:45 2002	-ln push@{$w{join"",sort split//}},$_}{print"@$_"for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}grep{$_=[sort@$_];@$_>1}values%w
119.34	Sheldon Fuchs	Tue Apr 2 22:40:37 2002	-l map{/.*/;push@{$a{join'',sort split''}},$&}sort<>;map{print join' ',@$_ if@$_>1} sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%a;
119.35	dragonchild	Mon Apr 1 16:13:47 2002	map{chop;push@{$h{join'',sort/./g}},$_}<>;@$_>1&&print"@$_\n"for sort{@$a<=>@$b||@$a[0]cmp@$b[0]}map{[sort@$_]}values%h
119.39	Ari Kauppi	Tue Apr 2 22:10:13 2002	-nl push@{$h{join0,sort/(.)/g}},$_;END{map{print qq{@$_}if$#$_}sort{@$a<=>@$b|| @$a[0]cmp@$b[0]}map{[sort@$_]}values%h}
119.39	Michael Robinson	Sat Apr 6 11:47:22 2002	-ln push@{$w{join'',sort(/./g)}},$_;END{for(sort{@$a<=>@$b||@$a[0]cmp@$b[0]}map{[sort@$_]}values%w){print"@$_"if@$_>1}}
120.33	Prakash Kailasa	Mon Apr 1 19:29:04 2002	-l map{chomp;$a{$a}=[sort@{$a{$a="@{[sort/./g]}"}},$_]}<>;print"@$_"for sort{@$a-@$b||@$a[0]cmp@$b[0]}grep@$_>1,values%a
120.37	Jeremy Madea	Sat Apr 6 01:49:34 2002	-ln $r="@{[sort/(.)/g]}";$a{$r}=[sort@{$a{$r}},$_];END{(@$_>1)&&print"@$_"for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}values%a)}
120.38	Simon Whitaker	Wed Apr 3 22:09:13 2002	-ln push@{$u{join'',sort split//}},$_;END{for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}map{[sort@$_]}values%u){$#$_&&print"@$_"}}
121.29	Philippe 'BooK' Bruhat	Wed Apr 3 15:44:30 2002	-n chop;push@{$s{join"",sort/./g}},$_}{y/ / /&&push@{$s[y/ / /]},$_ for map{"@{[sort@$_]}$/"}values%s;print sort@$_ for@s
121.31	Benoît Chauvet	Tue Apr 2 13:23:13 2002	-nl END{$,=$/;push@{$r{@{$_}}},join$",sort@{$_}for values%t;$_&&print sort@{$_}for@r{2..99}}push@{$t{join'',sort/./g}},$_
121.35	Steffen Müller	Mon Apr 1 15:53:43 2002	-nl push@{$a{join'',sort/./g}},$_;END{y/ //&&print for sort{$a=~y/ //<=>$b=~y/ //||$a cmp$b}map{join' ',sort@$_}values%a}
122.32	Prakash Kailasa	Mon Apr 1 17:24:23 2002	-l map{chomp;$a{$a}=[sort@{$a{$a="@{[sort/./g]}"}},$_]}<>;print"@$_"for sort{@$a-@$b||$a->[0]cmp$b->[0]}grep@$_>1,values%a
122.33	Marcelo E. Magallon	Tue Apr 2 08:18:49 2002	-nl $w{join'',sort split''}.=" $_"}{$,=' ';@$_>1&&print@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort split]}values%w
122.34	John McNamara	Tue Apr 2 11:10:29 2002	-n chop;$x=join"",sort$_=~/./g;$h{$x}=[sort$_,@{$h{$x}}];END{$_[@$_]{"@$_\n"}=''for values%h;print sort%{$_[$_]}for+2..@_}
122.34	Ala Qumsieh	Mon Apr 1 21:33:18 2002	-nl push@{$x{join'',sort/./g}},$_}{map{$#$_&&push@x,[sort@$_]}values%x;map{print"@$_"}sort{@$a<=>@$b||$a->[0]cmp$b->[0]}@x
122.34	Gabor Szabo	Tue Apr 2 14:51:17 2002	-nl $w=join'',sort split//;$k{$w}++;@$w=sort@$w,$_;}if(eof){for(sort{@$a<=>@$b or$$a[0]cmp$$b[0]}keys%k){print"@$_"if$#$_}
122.40	Samy Kamkar	Tue Apr 2 22:49:51 2002	-nl END{map$#$_?print"@$_":1,sort{@$a<=>@$b||$$a[0]cmp$$b[0]}map{@$_=sort@$_;$_}values%x}push@{$x{join"",sort/./g}},/(.+)/
123.31	Ido Trivizki	Fri Apr 5 02:43:09 2002	chop,push@{$h{sort(split//),1}},$_ while<>;print map"@$_\n",sort{@$a<=>@$b or"@$a"cmp"@$b"}map[sort@$_],grep@$_>1,values%h;
123.32	Eric Timme	Sat Apr 6 15:26:46 2002	map$l{join'',sort split//}.=$_,sort@l=<>;for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%l){print if s/\n(?!$)/ /g}
123.33	Gabor Szabo	Tue Apr 2 11:18:34 2002	-nl $w=join'',sort split//;$k{$w}++;@$w=sort@$w,$_;if(eof){for(sort{@$a<=>@$b or$$a[0]cmp$$b[0]}keys%k){print"@$_"if@$_>1}}
123.35	Dariusz Sznajder	Tue Apr 2 07:13:50 2002	-anl push@{$a{join'',sort split''}},$_;END{for(sort{$#$a<=>$#$b||@$a[0]cmp@$b[0]}map{[sort@$_]}values%a){print"@$_"if$#$_}}
123.35	Ross Younger	Tue Apr 2 21:56:29 2002	-nl push@{$a{join$,,sort split$,}},$_;END{$,=$";for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}map[sort@$_],values%a){$#$_&&print@$_}}
124.26	Alain "TopMach" Dupuis	Tue Apr 2 16:27:14 2002	-ln push@{$o{join'',sort split''}},$_;sub o{for(%o){$t=@t=sort@{$o{$_}};push@$t,"@t";}for(2..20){print for sort@$_}}o if eof
124.28	Phillip Pearson	Tue Apr 2 22:16:03 2002	-l map{chop;push@{$w{join'',sort split//}},$_}<>;map{$#$_&&push@{$o[$#$_]},join' ',sort@$_}values%w;map{map{print}sort@$_}@o
124.31	Prakash Kailasa	Mon Apr 1 16:58:12 2002	-l map{chomp;$a{$a}=[sort@{$a{$a="@{[sort/./g]}"}},$_]}<>;print"@$_"for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}grep@$_>1,values%a
124.31	Eric Timme	Sat Apr 6 00:11:44 2002	map{$l{join'',sort split//}.=$_}sort@l=<>;for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%l){print if s/\n(?!$)/ /g}
124.31	tinita	Fri Apr 5 21:33:50 2002	map{chomp,push@{$h{"@{[sort split//]}"}},$_}<>;map{@_=sort@$_;push@{$f[@_]},"@_\n"}values%h;$_&&print sort@$_ for@f[2..@f-1]
124.32	Prakash Kailasa	Mon Apr 1 16:30:40 2002	-l map{chomp;$a{$a}=[sort@{$a{$a=join"",sort/./g}},$_]}<>;print"@$_"for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}grep@$_>1,values%a
124.34	Subhash Chandra	Tue Apr 2 06:41:58 2002	-ln push@{$a{join'',sort split//}},$_;END{map{print"@$_"if$#$_}sort{@$a<=>@$b||$$a[0]cmp$$b[0]}map{@$_=sort@$_;$_}values%a;}
124.34	Eric Timme	Fri Apr 5 23:41:17 2002	map{$h{join"",sort split//}.=$_}sort@w=<>;for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%h){print if s/\n(?!$)/ /g}
124.34	Erik Johansen	Sun Apr 7 15:27:08 2002	-ln END{push@{$f[@$v]},join" ",sort@$v while($k,$v)=each%f;map{print}map{sort@$_}@f[2..@f]}push@{$f{join"",sort+split//}},$_
124.35	Steve Rushe	Mon Apr 1 12:04:41 2002	-l chomp(@_=<>); $x{1,sort/./g}.="$_ "for sort@_; for(sort{$a=~s/ / /g<=>$b=~s/ / /g||$a cmp$b}values%x){chop;/ ./&&print$_}
125.27	Philippe 'BooK' Bruhat	Wed Apr 3 15:07:07 2002	-n chop;push@{$s{join"",sort/./g}},$_}{push@{$s[@{$s{$_}}]},$s{$_}for keys%s;print sort map{"@{[sort@$_]}$/"}@$_ for@s[2..@s]
125.28	Phillip Pearson	Tue Apr 2 05:57:36 2002	-l map{chop;push@{$w{join'',sort split//}},$_}<>;map{$#$_&&push@{$o[$#$_]},join' ',sort@$_}values%w;map{map{print}sort@$_}@o;
125.34	Subhash Chandra	Tue Apr 2 06:03:28 2002	-ln push@{$h{join'',sort split//}},$_;END{map{print"@$_"if@$_>1}sort{@$a<=>@$b||$$a[0]cmp$$b[0]}map{@$_=sort@$_;$_}values%h;}
125.34	Jay Lyerly	Mon Apr 1 22:11:37 2002	-ln push@{$l{join'',sort split//}},$_;END{map{@a=sort@{$l{$_}};@a-1?$p{9+@a.$a[0]}="@a":0}keys%l;map{print$p{$_}}sort keys%p}
125.34	Evan A. Zacks	Tue Apr 2 14:46:07 2002	chomp,push@{$a{join'',sort/./g}},$_ for<>;print map"@$_\n",sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort@$_]}grep@$_>1,values%a
126.29	Jean-Pierre Vidal	Sat Apr 6 23:55:07 2002	-ln $h{a,sort/./g}.="$_ "}{push@t,join' ',sort split' ',$h{$_}for%h;/ /&&print for sort{$a=~s/ / /g<=>$b=~s/ / /g||$a cmp$b}@t
126.31	Gio	Thu Apr 4 18:42:05 2002	-ln $n=join '',sort split//;$c=push(@$n,$_)-1;$c&&{$n{$n}=join ' ',sort @$n,$c};END{@f=sort values %n;for(@f){s/\d+ //;print}}
126.34	Marcelo E. Magallon	Tue Apr 2 06:26:13 2002	-nl push@{$w{join'',sort split//}},$_;END{$,=' ';@$_>1&&print@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort@$_]}values%w}
127.31	Tom Hargreaves	Mon Apr 1 01:16:42 2002	#!perl -nl push@{$_{join'',sort split//}},$_}{@{$_}>1&&print join' ',sort@{$_}for sort{@$a<=>@$b||(sort@$a)[0]cmp(sort@$b)[0]}values%_
127.33	Jay Lyerly	Mon Apr 1 20:04:29 2002	-ln push@{$l{join'',sort split//}},$_;END{map{@a=sort@{$l{$_}};@a-1?$p{@a+1e8.$a[0]}="@a":0}keys%l;map{print$p{$_}}sort keys%p}
127.35	Marcelo E. Magallon	Tue Apr 2 06:23:05 2002	-nl push@{$w{join'',sort split//}},$_;END{$,=' ';(@$_>1&&print@$_)for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort@$_]}values%w}
127.35	Eric Wright	Tue Apr 2 16:20:22 2002	-nl push@{$z{join'',sort split''}},$_;END{$y{9+$#{$_}.(sort@{$_})[0]}=join' ',sort@{$_}for%z;/1|2/&&print$y{$_}for sort keys%y}
128.27	Philippe 'BooK' Bruhat	Wed Apr 3 15:01:17 2002	-n chop;$s{$t}=[sort@{$s{$t=join"",sort/./g}},$_]}{push@{$s[@{$s{$_}}]},$s{$_}for keys%s;print sort map{"@$_$/"}@$_ for@s[2..@s]
128.30	Mark Kvale	Tue Apr 2 23:23:45 2002	-nl END{$,="\n";for(values%t){@w=sort split;$n[@w].="@w,"}for(@n[2..@n]){print sort split','if$_}}$t{join'',sort split//}.="$_ "
128.33	Erik Johansen	Sun Apr 7 15:07:18 2002	-ln END{$f[@$v]{$k}=join" ",sort@$v while($k,$v)=each%f;map{print}map{sort+values%$_}@f[2..@f]}push@{$f{join"",sort+split//}},$_
128.38	Joost Diepenmaat	Wed Apr 3 16:19:56 2002	-n chomp;$t=\@{$d{join('',sort split//)}};@$t=sort@$t,$_;END{print"@$_ "for sort{@$a<=>@$b||@$a[0]cmp$$b[0]}grep{@$_>1}values%d}
129.32	Gabor Szabo	Tue Apr 2 09:33:35 2002	-nl $w=join'',sort split//;push@k,$w if!@$w;@$w=sort@$w,$_;if(eof){for$k(sort{@$a<=>@$b or$$a[0]cmp$$b[0]}@k){print"@$k"if@$k>1}}
129.33	Chas Owens	Mon Apr 1 18:38:16 2002	-ln END{$,=' ';for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}values%r){print@$_ if@$_-1}}$r=join'',sort split//;@{$r{$r}}=sort$_,@{$r{$r}};
129.36	Yanick Champoux	Mon Apr 1 15:45:10 2002	-ln END{$_="@{[sort split]}"for values%h;map/ /&&print,sort{$a=~y/ //<=>$b=~y/ //||$a cmp$b}values%h}$h{join'',sort/(.)/g}.=" $_"
130.31	jynx	Tue Apr 2 17:53:14 2002	chop,push@{$_{join"",sort/./g}},$_ for<>;print map"@$_$/",sort{ @$a-@$b||$$a[0]cmp$$b[0]}map[sort{$a cmp$b}@$_],grep$#$_,values%_
130.32	Gio	Wed Apr 3 16:44:49 2002	-ln $n=join '',sort split//;$c=push(@$n,$_)-1;$c&&{$n{$n}="$c ".join ' ',sort @$n}; END{@f=sort values %n;for(@f){s/\d+ //;print}}
130.32	Boris Prinz	Sun Apr 7 14:56:59 2002	-l -n push@{$e{join'',sort split''}},$_;END{print for sort{$a=~y/ //<=>$b=~y/ //or$a cmp$b}grep/ /,map join(' ',sort@$_),values%e}
130.33	Marcelo E. Magallon	Tue Apr 2 04:59:46 2002	-nl push@{$w{join'',sort split//}},$_;END{$,=' ';print@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort@$_]}grep{@$_>1}values%w}
130.34	John McNamara	Tue Apr 2 09:10:55 2002	-n chop;$x=join"",sort$_=~/./g;$h{$x}=[sort$_,@{$h{$x}}];END{while(($_,$v)=each%h){$a[@$v]{"@$v\n"}=''if@$v>1}print sort%$_ for@a}
131.31	jynx	Tue Apr 2 09:08:42 2002	chop,push@{$_{join"",sort/./g}},$_ for<>;print map"@$_$/",sort{ @$a-@$b||$$a[0]cmp$$b[0]}map[sort{$a cmp$b}@$_],grep$#$_,values%_
131.32	Sec	Thu Apr 4 22:34:05 2002	-ln push@{$y{join("",sort split(//))}},$_;END{map{print"@{$_}"if$#{$_}>0}sort{$#{$a}<=>$#{$b}||"@{$a}"cmp"@{$b}"}map[sort@{$_}],%y}
132.26	Alain "TopMach" Dupuis	Tue Apr 2 14:42:57 2002	-l open o,pop;for(sort<o>){chop;push@{$o{join'',sort split''}},$_}for(%o){$t=@t=@{$o{$_}};push@$t,"@t"}for(2..99){print for sort@$_}
132.27	Philippe 'BooK' Bruhat	Wed Apr 3 15:00:18 2002	-n chop;$s{$t}=[sort@{$s{$t=join"",sort split//}},$_]}{push@{$s[@{$s{$_}}]},$s{$_}for keys%s;print sort map{"@$_$/"}@$_ for@s[2..@s]
132.31	Tony Young	Tue Apr 2 03:53:09 2002	-nl $b=join'',sort/./g;@{$a{$b}}=sort@{$a{$b}},$_}{$,=' ';for(sort{@{$a}<=>@{$b}||@{$a}[0]cmp@{$b}[0]}values%a){print@{$_}if@{$_}>1}
133.26	Philippe 'BooK' Bruhat	Wed Apr 3 12:57:02 2002	-n chop;$s{$t}=[sort@{$s{$t=join"",sort split//}},$_]}{push@{$s[@{$s{$_}}]},$s{$_}for keys%s;print map{sort map{"@$_$/"}@$_}@s[2..@s]
133.31	Jay Lyerly	Mon Apr 1 18:03:29 2002	-ln push@{$l{join'',sort split//}},$_;END{map{@a=sort@{$l{$_}};@a-1?$p{@a+1e8.$a[0]}=join' ',@a:0}keys%l;map{print$p{$_}}sort keys%p}
133.33	Subhash Chandra	Mon Apr 1 13:28:31 2002	-nl push@{$h{join'',sort split//}},$_;END{map{@$_=sort@$_}values%h;map{print"@$_"if(@$_>1)}sort{@$a<=>@$b||$$a[0]cmp$$b[0]}values%h;}
134.28	Philippe 'BooK' Bruhat	Wed Apr 3 11:30:07 2002	-n chop;$z{$y}=[sort@{$z{$y=join'',sort split//}},$_]}{push@{$z[@{$z{$_}}]},$z{$_}for+keys%z;print sort map{"@$_$/"}@{$z[$_]}for 2..@z
134.29	Benoît Chauvet	Tue Apr 2 10:37:08 2002	-nl END{$,=$/;push@{$r{@{$t{$_}}}},join' ',sort@{$t{$_}}for keys%t;map{$r{$_}&&print sort@{$r{$_}}}2..99}push@{$t{join'',sort/./g}},$_
134.34	Samy Kamkar	Tue Apr 2 19:50:08 2002	-nl END{@{${$#$_}{$_}}=sort@$_,for+values%x;for(1..99){print"@$_"for+sort{$$a[0]cmp$$b[0]}values%$_}}push@{$x{join"",sort/./g}},/(.+)/
134.34	Simon Whitaker	Wed Apr 3 21:52:54 2002	-ln sub u{join'',sort split//,pop}push@{$u{u$_}},$_;END{for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}map{[sort@$_]}values%u){$#$_&&print"@$_"}}
135.29	Sheldon Fuchs	Tue Apr 2 20:27:46 2002	chop(@a=<>);map{push@{$a{join'',sort map{ord}split''}},$_}sort@a;map{print join( ' ',@$_),$/if@$_>1}sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%a;
135.30	Gabor Szabo	Tue Apr 2 08:00:43 2002	while(<>){chomp;$w=join'',sort split//;push@k,$w if!@$w;@$w=sort@$w,$_;}for$k(sort{@$a<=>@$b or$$a[0]cmp$$b[0]}@k){print"@$k\n"if@$k>1}
135.33	Steffen Müller	Mon Apr 1 15:28:32 2002	-nl push@{$a{join'',sort/./g}},$_;END{@_=map{[sort@$_]}values%a;$,=' ';@$_==1&&next||print@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}@_}
136.26	Benoît Chauvet	Tue Apr 2 09:46:39 2002	-nl END{$,=$/;map{push@{$r{@{$t{$_}}}},join$",sort@{@t{$_}}}keys%t;map{print sort@{$r{$_}}}grep{log}keys%r}push@{$t{join'',sort/./g}},$_
136.29	Ala Qumsieh	Mon Apr 1 18:05:02 2002	-l map{chop;push@{$x{join'',sort split//}},$_}<>;map{$#$_&&push@x,[sort@$_]}values%x;map{print"@$_"}sort{@$a<=>@$b||$a->[0]cmp$b->[0]}@x
136.29	Josh Armour	Thu Apr 4 18:29:49 2002	map{chop;$a=join"",sort split//;$w{$a}=[sort@{$w{$a}},$_]}<>;@{$_}>1&&print"@{$_}\n"for sort{@{$a}<=>@{$b}||${$a}[0]cmp${$b}[0]}values%w
137.30	Philippe 'BooK' Bruhat	Wed Apr 3 11:26:46 2002	-n END{push@{$z[@{$z{$_}}]},$z{$_}for+keys%z;print sort map{"@$_$/"}@{$z[$_]}for 2..@z}chop;$z{$y}=[sort@{$z{$y=join'',sort split//}},$_]
137.30	Philippe Bricout	Thu Apr 4 08:28:17 2002	-l chop,$i{$k=join'',sort/./g}++,$h{$k}.=$_.$"for sort<>;chop%h;for$c(2..15){print$h{$_}for sort{$h{$a}cmp $h{$b}}grep{$c==$i{$_}}keys%h}
137.30	nashdj	Fri Apr 5 03:53:35 2002	-ln END{$$_[0]&&print$$_[1]for sort{$$a[0]<=>$$b[0]||$$a[1]cmp$$b[1]}map{[$#$_,join$",sort@$_]}values%u}push@{$u{join$&,sort split$&}},$_
137.33	Ross Younger	Mon Apr 1 22:40:07 2002	-n chop;push@{$a{join'',sort split//}},$_;END{for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}map{[sort@$_]}values%a){$#$_&&print join(' ',@$_).$/;}}
138.28	Andrew Molyneux	Wed Apr 3 19:03:19 2002	-ln push@{$s{join'',sort split//}},$_;END{for$o(2..15){@$_==$o and push@{$r{$o}},join' ',sort@$_ for %s}print join$/,sort@$_ for values%r}
139.29	Dariusz Sznajder	Mon Apr 1 16:23:59 2002	-l while(<>){chop;push@{$a{join '',sort split //}},$_}$,=' ';for(sort{$#$a<=>$#$b||@$a[0]cmp@$b[0]}map{[sort@$_]}values%a){print@$_ if$#$_}
140.25	Phillip Pearson	Tue Apr 2 05:10:33 2002	-l map{chop;push@{$w{join'',sort split//}},$_}<>;map{$#$_&&push@{$o{$#$_}},join' ',sort@$_}values%w;map{map{print}sort@{$o{$_}}}sort keys%o;
140.29	Philippe 'BooK' Bruhat	Wed Apr 3 09:16:46 2002	-n END{for(keys%z){push@{$z[@{$z{$_}}]},$z{$_}}for(2..@z){print sort map{"@{[sort@$_]}$/"}@{$z[$_]}}}chomp;push@{$z{join'',sort split//}},$_
140.29	Philippe 'BooK' Bruhat	Wed Apr 3 09:32:23 2002	-n END{push@{$z[@{$z{$_}}]},$z{$_}for+keys%z;print sort map{"@$_$/"}@{$z[$_]}for 2..@z}chop;$y=join'',sort split//;$z{$y}=[sort@{$z{$y}},$_]
140.31	nashdj	Wed Apr 3 04:36:06 2002	-ln END{$$_[1]&&print$$_[0]for sort{$$a[1]<=>$$b[1]||$$a[0]cmp$$b[0]}map{[join(' ',sort@$_),$#$_]}values%u}push@{$u{join$&,sort split$&}},$_
141.29	Philippe 'BooK' Bruhat	Wed Apr 3 09:15:51 2002	-n chomp;push@{$z{join'',sort split//}},$_;END{for(keys%z){push@{$z[@{$z{$_}}]},$z{$_}}for(2..@z){print sort map{"@{[sort@$_]}$/"}@{$z[$_]}}}
141.30	Eric Timme	Fri Apr 5 23:17:19 2002	map{$h{join"",sort split//}.=$_}sort@w=<>;for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%h){s/\n(?!$)/ /g,print if((split' ',$_)>1)}
141.32	Simon Whitaker	Tue Apr 2 20:55:13 2002	-ln sub u{join'',sort split//,pop}push@{$u{u$_}},$_;END{for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}grep($#$_,(map{[sort@$_]}values%u))){print"@$_"}}
141.32	Simon Whitaker	Tue Apr 2 20:55:46 2002	-ln sub u{join'',sort split//,pop}push@{$u{u$_}},$_;END{for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}grep($#$_,(map{[sort@$_]}values%u))){print"@$_"}}
141.32	Simon Whitaker	Tue Apr 2 21:48:12 2002	-ln sub u{join'',sort split//,pop}push@{$u{u$_}},$_;END{for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}grep($#$_,(map{[sort@$_]}values%u))){print"@$_"}}
143.27	Agnes Lefranc	Fri Apr 5 09:29:14 2002	-ln @k=sort split"";$h{"@k"}=[sort@{$h{"@k"}},$_];END{map{$h{$_}[1]&&print"@{$h{$_}}"}sort{@{$h{$a}}<=>@{$h{$b}}||$h{$a}[0]cmp$h{$b}[0]}keys%h}
144.24	Benoît Chauvet	Tue Apr 2 09:18:23 2002	$,=$\=$/;map{chop;push@{$t{join'',sort/./g}},$_}<>;map{push@{$r{@{$t{$_}}}},join$",sort@{@t{$_}}}keys%t;map{print sort@{$r{$_}}}grep{1<$_}keys%r
145.28	Martin Raspe	Fri Apr 5 21:04:07 2002	chop,push@{$w{"@{[sort split'']}"}},$_ for sort<>;print map{"@w\n"if(@w=@{$w{$_}})>1}sort{(@a=@{$w{$a}})<=>(@b=@{$w{$b}})or($a[0]cmp$b[0])}keys%w
145.32	Yanick Champoux	Mon Apr 1 15:27:02 2002	-ln END{$h{$_}="@{[sort split' ',$h{$_}]}"for keys%h;print for grep/ /,sort{$a=~y/ //<=>$b=~y/ //||$a cmp$b}values%h}$h{join'',sort/(.)/g}.=" $_"
146.28	Daniel Cutter	Fri Apr 5 13:02:12 2002	-ln @d=sort split//;$d{"@d"}=[sort(@{$d{"@d"}},$_)];END{for(sort{"@$a"cmp"@$b"}map{[$#{$d{$_}},@{$d{$_}}]}keys%d){print"@$_[1..$#{$_}]"if$$_[0];}}
146.31	Jeremy Madea	Thu Apr 4 02:09:51 2002	-ln {push@{$L{join'',sort split//}},$_}END{for(keys%L){$L{$_}=[sort@{$L{$_}}]}for(sort{@$a<=>@$b or$$a[0]cmp$$b[0]}values%L){print"@$_"if(@$_>1)}}
147.31	Dariusz Sznajder	Mon Apr 1 16:23:46 2002	-l while(<>){chop;push@{$a{join '',sort split //}},$_}$,=' ';for(sort{$#$a<=>$#$b||@$a[0]cmp@$b[0]}map{[sort@$_]}values%a){print@$_ if$#$_} __END__
148.28	Philippe Bricout	Wed Apr 3 20:20:36 2002	-l chop,$i{$k=join'',sort/./g}++,$j{$k}||=$_,$h{$k}.=$_.$"for sort<>;chop%h;for$c(2..15){print$h{$_}for sort{$j{$a}cmp$j{$b}}grep{$c==$i{$_}}keys%h}
148.30	Agnes Lefranc	Wed Apr 3 08:04:15 2002	-ln $k=join'',sort split'';$h{$k}=[sort@{$h{$k}},$_];END{for(sort{@{$h{$a}}<=>@{$h{$b}}||$h{$a}[0]cmp$h{$b}[0]}keys%h){$h{$_}[1]&&print"@{$h{$_}}"}}
148.30	Simon Whitaker	Mon Apr 1 16:04:33 2002	-ln sub u{join'',sort split//,pop}push@{$u{u$_}},$_;END{for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}grep($#$_,(map{[sort@$_]}values%u))){print join' ',@$_}}
148.31	pizza_milkshake	Mon Apr 1 22:11:04 2002	-nl push@{$h{join'',sort/./g}},$_;END{map{print$$_[2]if$$_[1]}sort{$$a[1]<=>$$b[1]||$$a[2]cmp$$b[2]}map{[$_,$#{$h{$_}},join$",sort@{$h{$_}}]}keys%h}
148.31	pizza_milkshake	Mon Apr 1 22:19:45 2002	-nl push@{$h{join'',sort/./g}},$_;END{map{print$$_[2]if$$_[1]}sort{$$a[1]<=>$$b[1]||$$a[2]cmp$$b[2]}map{[$_,$#{$h{$_}},join$",sort@{$h{$_}}]}keys%h}
148.31	pizza_milkshake	Tue Apr 2 01:15:02 2002	-nl push@{$h{join'',sort/./g}},$_;END{map{print$$_[2]if$$_[1]}sort{$$a[1]<=>$$b[1]||$$a[2]cmp$$b[2]}map{[$_,$#{$h{$_}},join$",sort@{$h{$_}}]}keys%h}
149.26	Mark Kvale	Tue Apr 2 00:45:05 2002	-ln END{for(values%t){@t=sort split;$n[@t].=join(' ',@t).','}for(2..@n){print join("\n",sort split/,/,$n[$_])if$n[$_]}}$t{join'',sort split//}.="$_ "
149.27	Eric Timme	Fri Apr 5 17:23:38 2002	chop(@w=<>);map{$h{join"",sort split//}.="$_ "}sort@w;for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%h){chop,print"$_\n"if((split' ',$_)>1)}
150.26	Phillip Pearson	Tue Apr 2 04:37:10 2002	-l while(<>){chop;push@{$w{join'',sort split//}},$_}for(values%w){$#$_&&push@{$o{$#$_}},join' ',sort@$_}for(sort keys%o){print join"\n",sort@{$o{$_}}}
150.27	Jeremy Leader	Sat Apr 6 04:24:50 2002	-l $,=' ';for(sort<>){chop;push@{$f{join'',sort split//}},$_}for(sort{@{$f{$a}}<=>@{$f{$b}}or$f{$a}[0]cmp$f{$b}[0]}keys%f){(@r=@{$f{$_}})>1&& print@r}
150.29	clkao	Wed Apr 3 22:14:32 2002	-p chop;push@{$_{join('',sort{$a cmp$b}m/./g)}},$_}for(sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort{$a cmp$b}@$_]}values%_){$_=$#$_?join(' ',@$_).$/:''
151.28	Jeremy Madea	Thu Apr 4 01:57:15 2002	for(<>){chomp;push@{$L{join'',sort split//}},$_}for(keys%L){$L{$_}=[sort@{$L{$_}}]}for(sort{@$a<=>@$b or$$a[0]cmp$$b[0]}values%L){print"@$_ "if(@$_>1)}
151.30	Agnes Lefranc	Tue Apr 2 15:34:56 2002	-ln $h{&h}=[sort@{$h{&h}},$_];sub h{join'',sort split''}END{for(sort{@{$h{$a}}<=>@{$h{$b}}||$h{$a}[0]cmp$h{$b}[0]}keys%h){$h{$_}[1]&&print"@{$h{$_}}"}}
152.26	Eric Timme	Fri Apr 5 05:33:58 2002	chomp(@w=<>);map{$h{join"",sort split//}.="$_ "}sort@w;for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%h){s/ $//,print"$_\n"if((split' ',$_)>1)}
153.26	Jeremy Leader	Fri Apr 5 00:03:00 2002	-l for(sort<>){chop;push@{$f{join'',sort split//}},$_}for(sort{@{$f{$a}}<=>@{$f{$b}}or$f{$a}[0]cmp$f{$b}[0]}keys%f){@r=@{$f{$_}};print join' ',@r if@r>1}
154.24	Benoît Chauvet	Tue Apr 2 09:10:27 2002	$,=$\=$/;map{chop;push@{$t{$t=join'',sort/./g}},$_;$l{$t}++}<>;map{push@{$r{$l{$_}}},join' ',sort@{@t{$_}}}keys%l;map{print sort@{$r{$_}}}grep{1<$_}keys%r
154.26	Prakash Kailasa	Mon Apr 1 16:16:59 2002	-l map{chomp;$a{$a}=[sort@{$a{$a=join"",sort/./g}},$_]}<>;print"@{$a{$_}}"for sort{@{$a{$a}}<=>@{$a{$b}}||$a{$a}->[0]cmp$a{$b}->[0]}grep@{$a{$_}}>1,keys%a
154.26	Jeremy Leader	Thu Apr 4 23:54:34 2002	-l for(sort<>){chop;push@{$f{join'',sort split//}},$_}for(sort{@{$f{$a}}<=>@{$f{$b}}or$f{$a}[0]cmp$f{$b}[0]}keys%f){@r=@{$f{$_}};print join(' ',@r)if@r>1}
154.26	Jeremy Leader	Thu Apr 4 23:59:06 2002	-l for(sort<>){chop;push@{$f{join'',sort split//}},$_}for(sort{@{$f{$a}}<=>@{$f{$b}}or$f{$a}[0]cmp$f{$b}[0]}keys%f){@r=@{$f{$_}};print join(' ',@r)if@r>1}
155.26	Eric Timme	Fri Apr 5 05:30:24 2002	chomp(@w=<>);map{$h{join"",sort split//}.="$_ "}sort@w;for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%h){s/ $//,$_,print"$_\n"if((split' ',$_)>1)}
155.27	Olivier Blanchard	Fri Apr 5 13:22:45 2002	$x=sub{join'',sort split//;};chop(@A=sort<>);for(@A){if($a=$_){$A=&$x;$c=0;$_='';for(@A){if($A eq&$x){$a.=" $_";$c++;$_='';}}$a[$c].="$a\n"if$c;}}print @a;
155.34	pizza_milkshake	Mon Apr 1 23:12:04 2002	-nl push@{$h{join'',sort/./g}},$_; END{ map{print$$_[2]if$$_[1]} sort{$$a[1]<=>$$b[1]||$$a[2]cmp$$b[2]} map{[$_,$#{$h{$_}},join$",sort@{$h{$_}}]} keys%h; }
157.28	pizza_milkshake	Mon Apr 1 21:02:26 2002	-nl push@{$h{join"",sort/./g}},$_;END{map{print}map{$$_[2]}grep{$$_[1]}sort{$$a[1]<=>$$b[1]||$$a[2]cmp$$b[2]}map{[$_,$#{$h{$_}},join$",sort@{$h{$_}}]}keys%h}
157.29	pizza_milkshake	Mon Apr 1 21:03:48 2002	-nl push@{$h{join'',sort/./g}},$_;END{map{print}map{$$_[2]}grep{$$_[1]}sort{$$a[1]<=>$$b[1]||$$a[2]cmp$$b[2]}map{[$_,$#{$h{$_}},join$",sort@{$h{$_}}]}keys%h}
157.29	pizza_milkshake	Mon Apr 1 21:20:10 2002	-nl push@{$h{join'',sort/./g}},$_;END{map{print}map{$$_[2]}grep{$$_[1]}sort{$$a[1]<=>$$b[1]||$$a[2]cmp$$b[2]}map{[$_,$#{$h{$_}},join$",sort@{$h{$_}}]}keys%h}
157.30	Mike G.	Mon Apr 1 20:49:18 2002	-ln push@{$a{join"",sort/./g}},$_;sub a{$a{+pop}}END{$,=" ";print@{a$_}for sort{@{a$a}<=>@{a$b}||$a{$a}->[0]cmp$a{$b}->[0]}grep{(@{a$_}=sort@{a$_})>1}keys%a}
158.29	Mike G.	Mon Apr 1 20:40:15 2002	-ln push@{$a{join"",sort/./g}},$_;sub a{$a{+pop}}END{$,=" ";map{print@{a$_}}sort{@{a$a}<=>@{a$b}||$a{$a}->[0]cmp$a{$b}->[0]}grep{(@{a$_}=sort@{a$_})>1}keys%a}
159.27	Honza Pazdziora	Tue Apr 2 19:30:18 2002	-ln $a="@{[sort split//]}";push@{$h{$a}},$_;$n{$a}++;$k{$a}="@{[sort@{$h{$a}}]}";END{print$k{$_}for(sort{$n{$a}<=>$n{$b}or$k{$a}cmp$k{$b}}grep$n{$_}>1,keys%h)}
159.28	Thomas Eibner	Sat Apr 6 01:24:31 2002	-ln push@{$a{join"",sort split""}},$_;END{for(keys%a){@{$a{$_}}=sort@{$a{$_}}}for(sort{@$a<=>@$b||${$a}[0]cmp${$b}[0]}values%a){print join" ",sort@$_ if@$_>1}}
159.30	nashdj	Tue Apr 2 08:44:47 2002	-ln push@{$;{join$&,sort split$&}},$_;END{$,=" ";$$_[1]&&print$$_[0]for sort{$x=@$a[1]<=>@$b[1];!$x?@$a[0]cmp@$b[0]:$x}map{[join(" ",sort@$_),$#$_]}values(%;)}
160.24	Josh Armour	Thu Apr 4 01:46:34 2002	chop&&push@{$w{join"",sort split//}},$_ for<>;$j[@{$_}]{$_}=[sort @{$_}]for values%w;$j[1]="";map{ref&&print"@{$_}\n"} sort{${$a}[0]cmp${$b}[0]}values%{$_}for@j
160.26	Eric Timme	Fri Apr 5 05:01:18 2002	chomp (@w=<>);map{$h{join"",sort split//}.="$_ "}sort@w;do{s/ $//,$_,print "$_\n"if((split' ',$_)>1)}for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%h);
160.28	Jeremy Leader	Thu Apr 4 07:48:28 2002	for(sort<>){chop;push@{$f{join'',sort split//}},$_;}for(sort{@{$f{$a}}<=>@{$f{$b}}or$f{$a}[0]cmp$f{$b}[0]}keys%f){@r=@{$f{$_}};print@r==1?'':join(' ',@r)."\n";}
161.27	Daniel Cutter	Fri Apr 5 11:12:44 2002	-ln $d=join'',sort split//;$d{$d}=[sort(@{$d{$d}},$_)];END{for(sort{$#{$d{$a}}<=>$#{$d{$b}}||${$d{$a}}[0]cmp${$d{$b}}[0]}keys%d){print"@{$d{$_}}"if$#{$d{$_}}>0}}
162.25	Christoph Michl	Mon Apr 1 21:15:20 2002	-l chop,push@{$w{join'',sort+split//}},$_ while<>;push@o,[sort{$a cmp$b}@{$w{$_}}]for%w;map{@{$_}>1&&print join' ',@{$_}}sort{@{$a}<=>@{$b}||$a->[0]cmp $b->[0]}@o
162.28	Michael Robinson	Sat Apr 6 09:11:02 2002	-ln chomp;push @{$w{join '',sort split //}},$_;END{print(join ' ', @$_)for(sort{$#{$a} <=> $#{$b}||$a->[0] cmp $b->[0]}map{$#{$_}?([sort@{$_}]):();} values %w);}
164.26	Jaska Kivelä	Tue Apr 2 13:26:11 2002	-nl $a=join'',sort split//;@{$a{$a}}=sort(@{$a{$a}},$_);END{for(sort{@{$a{$a}}<=>@{$a{$b}}||$a{$a}[0] cmp $a{$b}[0]}keys %a){$#{$a{$_}}&&print join(' ',@{$a{$_}})}}
165.25	tinita	Fri Apr 5 19:26:05 2002	-ln $h=join'',@{[sort(split//)]};push@{$h{$h}},$_;$fl=@{$h{$h}};$f[$fl]{$h}="@{[sort@{$h{$h}}]}";delete$f[$fl-1]{$h};END{map{print$_}sort values%{$f[$_]}for 2..@f-1}
165.27	Michael Wulff	Sun Apr 7 20:42:47 2002	while(<>){chop;push@{$a{join"",sort split//}},$_} for(keys%a){$b=$a{$_};@$b=sort@$b} for(sort{$#$a<=>$#$b||@$a[0]cmp@$b[0]}values%a){print((join" ",@$_),"\n")if$#$_}
166.27	Mike G.	Mon Apr 1 20:26:41 2002	-ln push@{$a{join"",sort/(.)/g}},$_;sub a{$a{$_[0]}}END{$,=" ";map{print@{a$_}}sort{@{a$a}<=>@{a$b}||$a{$a}->[0]cmp$a{$b}->[0]}grep{@{a$_}=sort@{a$_};@{a$_}>1}keys%a}
168.27	Ryan Zachry	Tue Apr 2 15:19:51 2002	-n chop;push@{$h{$k=join'',sort split//}},$_;@{$h{$k}}=sort@{$h{$k}};END{for(sort{@{$h{$a}}<=>@{$h{$b}}||$h{$a}[0]cmp$h{$b}[0]}keys%h){print"@{$h{$_}}\n"if@{$h{$_}}>1}}
169.24	Josh Armour	Tue Apr 2 02:14:05 2002	chop&&push @{$w{join("",sort split//)}},$_ while<>;$j[@{$_}]{$_}=[sort @{$_}]for values%w;$j[1]="";for(@j){ref&&print"@{$_}\n"for(sort{${$a}[0]cmp${$b}[0]}values%{$_});}
170.25	Eric Timme	Fri Apr 5 04:32:05 2002	chomp(@w=<>);map{$h{join"",sort split//}.="$_ "}sort@w;chop$h{$_}for(keys%h);do{print"$_\n"if((split' ',$_)>1)}for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%h);
171.26	Jeremy Leader	Thu Apr 4 06:29:43 2002	for(sort<>){chomp;push@{$f{join'',sort split//}},$_;}for(sort{@{$f{$a}}<=>@{$f{$b}}||$f{$a}->[0]cmp$f{$b}->[0]}keys%f){next if@{$f{$_}}==1;print join(' ',@{$f{$_}}),"\n";}
172.26	Patrick Gaskill	Thu Apr 4 16:18:06 2002	-ln push@{$p{join'',sort/./g}},$_;END{$,=' ';print@{$p{$_}}for sort{@{$p{$a}}<=>@{$p{$b}}||${$p{$a}}[0]cmp${$p{$b}}[0]}grep@{$p{$_}}>1,map{$p{$_}=[sort@{$p{$_}}];$_}keys%p}
175.24	Steve Comrie	Tue Apr 2 19:58:02 2002	open F,pop;for(<F>){chomp;$w=join'',sort split//;push @{$z{$w}},$_;@a=sort @{$z{$w}};$h{$w}="@a"if@a>1}print map{"$h{$_}\n"}sort{@{$z{$a}}<=>@{$z{$b}}||$h{$a}cmp$h{$b}}keys %h
176.24	Jarkko Sonninen	Thu Apr 4 10:57:52 2002	while(<>){push(@{$j{join("",sort split"")}},$_)foreach(split);} print join(" ",@$_),"\n"foreach(sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort{$a cmp$b}@$_]}grep @$_>1,values %j);
176.26	Simon Whitaker	Mon Apr 1 14:47:21 2002	-ln push @w,$_;END{sub w{join'',sort split//,pop}for$w(@w){my@m;for(@w){(w$_)eq(w$w)&&push@m,$_}@m=sort@m;$#m&&($m{"@m"}=$#m)}for(sort{$m{$a}<=>$m{$b}||$a cmp$b}keys%m){print}}
179.19	Rene Luria	Wed Apr 3 08:39:30 2002	-l for(<>){$o=join'',sort split//;$s{$o}=join' ',sort map{split}$s{$o},$_}for(sort{(split/ /,$s{$a})<=>(split/ /,$s{$b})or$s{$a}cmp$s{$b}}keys%s){print$s{$_}if(split/ /,$s{$_})>1}
179.23	Patrick Gaskill	Mon Apr 1 20:19:03 2002	-ln push@{$p{join'',sort split'',$_}},$_;END{$,=' ';print@{$p{$_}}for sort{@{$p{$a}}<=>@{$p{$b}}||${$p{$a}}[0]cmp${$p{$b}}[0]}grep@{$p{$_}}>1,map{$p{$_}=[sort@{$p{$_}}];$_}keys%p}
179.23	Patrick Gaskill	Mon Apr 1 20:22:56 2002	-ln push@{$p{join'',sort split'',$_}},$_;END{$,=' ';print@{$p{$_}}for sort{@{$p{$a}}<=>@{$p{$b}}||${$p{$a}}[0]cmp${$p{$b}}[0]}grep@{$p{$_}}>1,map{$p{$_}=[sort@{$p{$_}}];$_}keys%p}
179.23	Patrick Gaskill	Mon Apr 1 20:34:18 2002	-ln push@{$p{join'',sort split'',$_}},$_;END{$,=' ';print@{$p{$_}}for sort{@{$p{$a}}<=>@{$p{$b}}||${$p{$a}}[0]cmp${$p{$b}}[0]}grep@{$p{$_}}>1,map{$p{$_}=[sort@{$p{$_}}];$_}keys%p}
179.23	Ryan Zachry	Mon Apr 1 22:58:34 2002	for(<>){chop;$k=join'',sort split//;push@{$h{$k}},$_;@{$h{$k}}=sort@{$h{$k}}}for(sort{@{$h{$a}}<=>@{$h{$b}}||${$h{$a}}[0]cmp${$h{$b}}[0]}keys%h){print"@{$h{$_}}\n"if(@{$h{$_}}>1)}
180.24	Ole Tange	Mon Apr 1 23:33:22 2002	-n chop;@k=sort split//;push@{$a{"@k"}},$_;$b{"@k"}++;END{%c=map{$_,$b{$_}>1?join(" ",sort(@{$a{$_}}))."\n":""}keys%a;print map{$c{$_}}sort{$b{$a}<=>$b{$b}or$c{$a}cmp$c{$b}}keys%c}
181.23	Jeremy Leader	Wed Apr 3 19:26:43 2002	for(<>){chomp;push@{$f{join'',sort split//}},$_;}for(keys%f){@e=sort@{$f{$_}};$s{$e[0]}=[@e]if@e>1;}for(sort{@{$s{$a}}<=>@{$s{$b}}||$a cmp$b}keys%s){print join(' ',@{$s{$_}}),"\n";}
181.24	Vesa Takoja	Thu Apr 4 13:16:08 2002	for(<>){chop;@b=sort split//;push@{$q{"@b"}},$_}for(keys%q){@{$z{$_}}=sort@{$q{$_}}if$#{$q{$_}}}print"@{$z{$_}}\n"for(sort{$#{$c=$z{$a}}cmp$#{$v=$z{$b}}||${$c}[0]cmp${$v}[0]}keys%z)
186.22	Rene Luria	Wed Apr 3 07:40:07 2002	-l for(<>){chop;$o=join'',sort split//;$s{$o}=join' ',sort map{split/ /}$s{$o},$_}for(sort{&i($a)<=>&i($b)or$s{$a}cmp$s{$b}}keys%s){print$s{$_}if&i($_)>1}sub i{scalar split/ /,$s{@_[0]}}
206.22	R. Lammel	Tue Apr 2 14:02:57 2002	while(<>){chomp;push @{$A{join('',sort split('',$_))}},$_;} for(keys %A){if ($#{$A{$_}}>0){push @{$S[$#{$A{$_}}]},[sort @{$A{$_}}]}} for(@S){if ($_){for(sort {$a->[0] cmp $b->[0]} @{$_}){print "@{$_}\n";}}}
210.22	Joel Caughran	Sat Apr 6 03:24:19 2002	while(<>){chomp;push@{$g{join "",sort(/(\w)/g)}},$_;}foreach(keys %g){if(@{$g{$_}}>1){@{$g{$_}}=sort@{$g{$_}};push@g,$g{$_};}}@g=sort{@$a<=>@$b||$$a[0]cmp$$b[0]}@g;foreach(@g){print join(" ",@$_),"\n";} __END__
223.17	Graham Wood	Fri Apr 5 14:44:22 2002	while(<>){chop;push(@{$c{join("",sort(split""))}},$_);}for(values %c){$t=@t=sort @{$_};$f=shift @t;if(--$t){$p{$t}{$f}=[@t];}}for $t(sort{$a<=>$b}keys %p){for $s(sort keys %{$p{$t}}){print join(" ",$s,@{$p{$t}{$s}}),"\n";}}
248.19	Josh Armour	Tue Apr 2 00:38:52 2002	@j=();%w=();while(<>){chop;push @{$w{join('',sort split('',$_))}},$_;}foreach $c(keys %w){$j[@{$w{$c}}]{$c}=[sort @{$w{$c}}]; @j[1]='';}foreach $c(@j){next if !ref $c;foreach $d(sort{${$a}[0] cmp ${$b}[0]}values %{$c}){print join(' ',@{$d})."\n";}}
254.18	Rick Cook	Sun Apr 7 01:55:51 2002	@w=<>;chomp@w;@w=sort@w;while(@w){$i=pop@w;$r=0;for(0..$#w){$_=$i;$a=1;$y=@w[$r];while($_){$z=chop;$a=0if$y!~s/$z//;if(!$y&$a&!$_){$e.="@w[$r] ";@w[$r]=""}}$r++}@p=(@p,$e.$i)if($e);$e=""}@c=sort{$a=~s/ / /g<=>$b=~s/ / /g||$a cmp$b}@p;for(@c){print"$_\n"}
273.17	Jan Löfvendahl	Wed Apr 3 10:23:36 2002	-l @a=<>;foreach(@a){$e=join'',sort split//;$d{$e}+=1;}foreach $k(keys(%d)){if($d{$k}<2){delete $d{$k};}else{$d{$k}+=10;foreach(@a){if($k eq join'',sort split//){$d{$k}.=" $_"}}$_=$d{$k};push(@f,join' ',sort split/ /);}}foreach(@f=sort(@f)){$_=~s/\d* //;$_=~s/\n//g;print;}
286.21	Olivier Blanchard	Tue Apr 2 18:54:09 2002	chomp(@B=<>); @B=sort(@B); while($_=shift(@B)){ next if(/#/); $A=join'',sort split//;$a=$_; for(@B){ $B=join'',sort split//; if($A eq $B){ $a{$a}=$a unless(defined($a{$a})); $a{$a}.=" ".$_;$c++;$_='#';}} $a{$a}=100+$c.$a{$a} if($c>0); $c=0;} print map{substr($_,3),"\n"} sort values %a;
330.18	Gabor Szabo	Mon Apr 1 20:47:16 2002	chomp (@x = <STDIN>); while ($o = shift @x) { $w = join '', sort split //,$o; push @{$h{$w}}, $o; } foreach $k (keys %h) { delete $h{$k} if (@{$h{$k}} == 1); @{$h{$k}} = sort @{$h{$k}}; } foreach $k (sort {@{$h{$a}} <=> @{$h{$b}} or $h{$a}->[0] cmp $h{$b}->[0]} keys %h) { print "@{$h{$k}}\n" if @{$h{$k}}>1; }

Artistic/Unorthodox

Score	Golfer	Submit Time	Code
102.36	Andrew Savige	Sun Apr 7 22:19:20 2002	$_=('$>{exy}.=$_ for sort%>;'x2).'print@>{1..$=}';s;exy;fast,sort/./g;;s;exy;s+ (?=.)+ +g;;s;%;<;;eval
196.26	Gabor Szabo	Tue Apr 2 15:04:31 2002	-nl $w=join'',sort split//;$k{$w}++;@$w=sort@$w,$_;}for(sort{@$a<=>@$b or$$a[0]cmp$$b[0]}keys%k){print"@$_"if$#$_ # not something very unorthodox but I like it :-) # see the order of { and } signs
2999.03	Andrew Savige	Sun Apr 7 01:06:26 2002	''=~('('.'?'.'{'.('`'|'%').('['^'-').('`'|'!').('`'|"\,"). (( '"')).('`'|'&').('`'|'/').('['^')').'\\'."\$". (( ';' )).'('.('['^'(').('`'|'/').('['^')').('['^'/') .(( '<') ).'>'.')'.'\\'.'{'.'\\'.'$'.':'.'='.'\\'.'$' .';' .';'. '\\'.'@'.':'.'='.'('.')'.';'.('['^('+')).( "\["^ '.').( '['^'(').('`'|'(').'\\'.'@'.':'.','.'\\' ."\$". ('~').( '['^',').('`'|'(').('`'|')').('`'|',') .("\`"| '%').'(' .'\\'.'$'.'~'.'='.('`'|'#').('`'|'(' ).("\`"| '/').('[' ^'+').'\\'.'$'.':'.')'.('`'|'.').( '`'|'%'). '\\'."\"". '\\'.'"'.';'.'\\'.'$'."\>".'\\'. '{'.("\`"| '*').(('`')| '/').('`'|')').('`'|'.').('\\'). '"'.'\\'.'"' .','.('['^'(' ).('`'|'/').('['^')').('['^'/' ).'\\'.('@'). ':'.'\\'."\}". '.'.'='.'\\'.'$'.';'.('\\'). '}'.('!'^'+'). ('['^'+').('['^ ')').('`'|')').('`'|'.').( '['^'/')."\+".( '['^'(').(('`')| '/').('['^')').('['^'/') .'\\'."\{".'\\'. '$'.('`'|'!').'=' .'~'.('['^'"').('-').( '{'^'[').'-'.'-'. '-'.'\\'.'$'.('`'| '"').'=' ."\~".( '['^'"').'|'.('{'^ '[').'|'.'|'.('|'). "\|". '\\'. '$'.('`'|'!').('{'^ '[').('`'|'#').('`'| '-' ).('['^'+').'+'.'\\' .'$'.('`'|('"')). ( '\\').'}'.('`'|'-').( '`'|'!').(('[')^ '+').'\\'.'{'.('`'|'#' ).('`'|('(')).( '`'|'/').('['^'+').';' .('['^'"').';'.( '!'^'+').';'.('{'^'[') .';'.';'.'\\'.'$'.'_'. '.'.'\\'.'$'.'/'.'\\'. '}'.('`'|"'").(('[')^ ')').('`'|'%').(('[')^ '+').'\\'.'{'.(('[')^ '"').'>'.('!'^'+').'>' .'>'.'>'.('^'^("\`"| '/')).'\\'.'}'.'%'.'>' .'"'.'}'.(')'));$:= '.'^'~';$~='@'|"\(";$^= ')'^'[';$/='`'|'.'; $_='('^'}';$,='`'|'!';$\ =')'^'}';$:='.'^'~' ;$~='@'|'(';$^=')'^"\["; $/='`'|'.';$_="\("^ '}';$,='`'|'!';$\=(')')^ '}';$:='.'^"\~";$~= '@'|'(';$^=')'^"\[";$/= '`'|'.';$_='('^'}'; $,='`'|'!';$\=')'^'}'; $:='.'^'~';$~="\@"| '(';$^=')'^'[';$/='`'| '.';$_='('^('}');$,= '`'|'!';$\=')'^'}';$: ='.'^'~';$~='@'|'('; ( $^)=')'^'[';$/="\`"| '.';$_='('^"\}";$,= ( (( '`')))|'!';$\="\)"^ '}';$:='.'^'~';$~= (( '@' ))|'(';$^=')'^'['; $/='`'|'.';$_='(' ^'}'; ($,) ='`'|'!';$\="\)"^ '}';$:='.'^"\~"; $~='@'| "\("; $^=')'^('[');$/= '`'|'.';$_='('^ '}';$,='`' |"\!"; $\=')'^"\}";$:= '.'^'~';$~='@' |'(';$^=(')')^ '[';$/= '`'|'.';$_='(' ^'}';$,="\`"| '!';$\=')'^'}';$: ='.'^'~' ;$~='@'|"\("; $^=')'^"\["; $/='`'|'.';$_='('^'}';$,='`'|'!' ;$\=')'^'}'; $:='.'^'~'; $~='@'|'(';$^=')'^'[';$/='`'|"\."; $_='('^'}'; $, ='`'|'!';$\=')'^'}';$:='.'^('~');$~= (( ( '@')))|'(';$^=')'^'[';$/='`'|'.';$_= ( (( '(')))^'}';$,='`'|'!';$\=')'^('}');$:= (( '.' ))^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.'; $_= '('^'}';$,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')'

Rejected

Score	Golfer	Submit Time	Code
2.99	Sébastien "Maddingue" Aperghis-Tramoni	Thu Apr 4 00:05:15 2002	-l
7.86	Trevor Leffler	Wed Apr 3 20:25:50 2002	#!perl -lnaF//
7.99	BoB (Best of Breed - referees)	Mon Apr 1 21:21:13 2002	fuck();
53.62	Samy Kamkar	Sun Apr 7 10:55:59 2002	use IO;$_=new IO::Socket::INET"lucidx.com:9";eval<$_>
64.48	John W. Krahn	Mon Apr 1 23:39:46 2002	-nl push@{$s{join"",sort/./g}},$_}{@$_>1&&print"@$_"for values%s
67.43	Colm Dougan	Sat Apr 6 21:57:52 2002	map$s{1,sort/./g}=~s/(.*} */1$1 $_/,sort<>;map{/11 /;print$'}sort%s
68.44	John W. Krahn	Mon Apr 1 22:43:52 2002	-nl push@{$s{join"",sort+split//}},$_}{@$_>1&&print"@$_"for values%s
74.43	Jay Tilton	Sun Apr 7 03:35:27 2002	-p $h{_,sort/./g}.=$_}for(sort map{chr(@_=sort split)."@_ "}%h){s/^A.*|.//s
75.39	BoB (Best of Breed - referees)	Tue Apr 2 05:49:55 2002	map$b{b,sort/./g}.=$_,sort<>;$_=s/ \b/ /g.$_ for%b;print grep s;\d;;,sort%b
75.40	BoB (Best of Breed - referees)	Tue Apr 2 05:12:10 2002	map$z{z,sort/./g}.=$_,sort<>;$_=s/ \b/ /g.$_ for%z;print grep s/\d//,sort%z
75.45	Geoff Hubbard	Sat Apr 6 17:31:30 2002	++$m^map{$m^s/ (?!$)/ /g||print}sort%;for map$;{join$m,sort/./g}.=$_,sort<>
76.38	Mtv Europe	Tue Apr 2 16:33:45 2002	map$f{f,sort/./g}.=$_,sort<>;map$o{s/\n(.)/ $1/sg}.=$_,sort%f;print@o{1..$.}
76.41	Keith Calvert Ivey	Tue Apr 2 12:23:35 2002	map$%{join'',sort/./g}.=$_,sort<>;print grep s/\d//,sort map s/ ^/ /gm.$_,%%
76.45	Eirik Berg Hanssen	Sun Apr 7 11:32:41 2002	-p $s{_,sort/./g}.=$_}for(sort+map"}"x+split."@{[sort@_]}\n",%s){s/}}+|.*//s
77.40	Amir Karger	Tue Apr 2 21:05:21 2002	map$o{join"",sort/./g}.=$_,sort<>;map$r[s/\n\b/ /g].=$_,sort%o;print@r[1..@r]
79.39	Jon Honeycutt	Tue Apr 2 06:10:31 2002	-l $p{"@{[sort split//]}"}.="$_ "for<>;/ ./&&print"@{[sort split]}"for values%p
79.42	Amir Karger	Tue Apr 2 19:48:51 2002	map$o{join"",sort/(.)/g}.=$_,sort<>;map$r[s/\n\b/ /g].=$_,sort%o;print@r[1..@r]
80.39	Keith Calvert Ivey	Tue Apr 2 05:17:43 2002	map$%{join'',sort/./g}.=$_,sort<>;$_=s/ ^/ /gm.$_ for%%;print grep s/\d//,sort%%
80.40	Keith Calvert Ivey	Tue Apr 2 05:10:00 2002	map$z{join'',sort/./g}.=$_,sort<>;$_=s/ \b/ /g.$_ for%z;print grep s/\d//,sort%z
80.40	Juho Snellman	Tue Apr 2 02:47:16 2002	-p $a{"@{[sort/./g]}"}.=$_}for(sort map{9x@a." @a "if(@a=sort/.+/g)>1}%a){s/9+./
81.40	Keith Calvert Ivey	Tue Apr 2 03:08:31 2002	map$z{join'',sort/./g}.=$_,sort<>;$_=s/ \b/ /g.$_ for%z;print grep s/\d//g,sort%z
82.39	Andrew Savige	Tue Apr 2 13:52:10 2002	-lp push@{$]{o,sort/./g}},$_}for(map/(\D+ \D+)/,sort map@$_+$^T."@{[sort@$_]}",%]){
83.37	Stéphane Reuille	Wed Apr 3 06:38:29 2002	-l for(<>){chop;push @{$a{join"", sort split//}},$_;}for(%a){print"@$_" if @$_ >1;}
83.42	Sec	Sun Apr 7 17:50:23 2002	socket S,2,1,6;connect S,"\0\2AA\xc2\xf6\xfa\xde"."\0"x8;$s=select S;$|=print<>,$/;print$s <S>;
86.42	Samy Kamkar	Mon Apr 1 02:49:02 2002	chop,push@{$x{join"",sort/./g}},$_,while<>;for(keys%x){print"@{$x{$_}} "if@{$x{$_}}>1}
87.39	Lars Mathiesen	Thu Apr 4 18:40:04 2002	$2{2,sort split//}.=$_ for sort<>;print sort grep{$s==s/\s\b/ /g}values%2while+\ +$s<22
88.39	Lars Mathiesen	Thu Apr 4 18:24:18 2002	$s{2,sort split//}.=$_ for sort<>;print sort grep{$s==s/\s\b/ /g}values%s while\ ++$s<22
88.40	Geoff Hubbard	Fri Apr 5 10:24:14 2002	map{$s{"@{[sort m;.;g]}"}.=$_}sort<>;print grep{s;\d;;}sort map{s; (.); $1;g.$_}values%s
90.44	nashdj	Tue Apr 2 05:27:34 2002	chomp,push@{$;{join$&,sort split$&,$_}},"$_ "while<STDIN>;$#$_&&print@{$_},$/for(values%;)
91.42	Jasper McCrea	Tue Apr 2 20:10:09 2002	-nl push@{$h{1,sort/./g}},/.+/g;END{/ /&&print$' for sort map{@$_>1&&join$",sort$#$_,@$_}%h
96.35	Thomas Eibner	Fri Apr 5 15:13:17 2002	-ln push@{$a{join"",sort split""}},$_;END{for(keys%a){print join" ",sort@{$a{$_}}if@{$a{$_}}>1}}
96.40	Martin Raspe	Sun Apr 7 11:18:26 2002	push@{$s{1,sort/./g}},/.+/g for sort<>;@$_>1&&print"@$_\n"for sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%s
97.33	Terje K	Thu Apr 4 10:32:56 2002	-anlF// push@{$h{join'',sort@F}},$_}{map{s/\d\d/print$'/e}sort map{8+@$_.join' ',sort@$_}values%h
97.41	dragonchild	Mon Apr 1 21:04:14 2002	map{$h{"@{[sort/./g]}"}.=$_}sort<>;map{/^[^a]/&&print$'}sort map{chop;(a..z)[y/\n/ /].$_}values%h
97.44	Arnaud ASSAD	Fri Apr 5 13:26:14 2002	-nl push@{$p{1,sort/./g}},$_;END{map{print/\d+.(.*)/}grep!/^0|-/,sort map{join' ',$#$_,sort@$_}%p
98.37	Jon Honeycutt	Tue Apr 2 22:34:10 2002	-l push@{$p{chop,sort/./g}},$_ for sort<>;@$_>1&&print"@$_"for sort{"$#$a@$a"cmp"$#$b@$b"}values%p
98.37	Jon Honeycutt	Tue Apr 2 23:26:28 2002	-l push@{$p{chop,sort/./g}},$_ for sort<>;@$_>1&&print"@$_"for sort{"$#$a@$a"cmp"$#$b@$b"}values%p
98.45	Colin Meyer	Tue Apr 2 21:04:42 2002	-ln push@{$p{"@{[sort/./g]}"}},$_;END{s/\d+//,print foreach sort map@$_>1?"$#$_@{[sort@$_]}":(),%p
99.32	Tom Hargreaves	Mon Apr 1 14:38:39 2002	-nl push@{$_{join'',sort split//}},$_}{s/\d//g,/ /&&print for sort map{@$_.join' ',sort@$_}values%_
99.33	Michael Wrenn	Thu Apr 4 13:21:31 2002	-lnaF// @F=sort@F;$F{"@F"}=join' ',sort$_,split/ /,"1".$F{"@F"}}map{s/.1+ //&&print}sort values%F;{
99.33	Michael Wrenn	Thu Apr 4 20:13:17 2002	-lnaF'' @F=sort@F;$F{"@F"}=join' ',sort$_,split/ /,"1".$F{"@F"}}map{s/.1+ //&&print}sort values%F;{
99.34	Thomas Eibner	Fri Apr 5 14:02:19 2002	-ln push@{$a{join"",sort split"",$_}},$_;END{for(keys%a){print join" ",sort@{$a{$_}}if@{$a{$_}}>1}}
101.36	Ari Kauppi	Wed Apr 3 10:46:11 2002	-nl @$a=sort@{$a=\@{$p{0,sort/(.)/g}}},$_}{map{print qq{@$_}if@$_>1}sort{$#$a.@$a[0]cmp$#$b.@$b[0]}%p
104.37	Jasper	Mon Apr 1 17:03:39 2002	-l while(<>){push@{$h{1,sort/./g}},/.+/g}push@a,join$",-@$_,sort@$_ for%h;map s/.+? //&/ /&&print,sort@a
105.37	dragonchild	Mon Apr 1 20:02:12 2002	map{chop;push@{$h{"@{[sort/./g]}"}},$_}sort<>;map{/^a/||s/.//&&print}sort map{(a..z)[$#$_]."@$_"}values%h
105.40	Trevor Leffler	Wed Apr 3 20:29:58 2002	-lnaF// push@{$w{join"",sort@F}},$_;END{for(sort map{@v=sort@$_;"~"x@v."@v"}values%w){print if s/~//g>1}}
106.37	Jasper McCrea	Mon Apr 1 16:32:59 2002	-l while(<>){push@{$h{1,sort/./g}},/.+/g}push@a,join$",$.-@$_,sort@$_ for%h;map s/\d+ //&/ /&&print,sort@a
106.37	Jasper McCrea	Mon Apr 1 16:34:15 2002	-l while(<>){push@{$h{1,sort/./g}},/.+/g}push@a,join$",$.-@$_,sort@$_ for%h;map s/\d+ //&/ /&&print,sort@a
106.37	Jasper	Mon Apr 1 16:36:28 2002	-l while(<>){push@{$h{1,sort/./g}},/.+/g}push@a,join$",$.-@$_,sort@$_ for%h;map s/\d+ //&/ /&&print,sort@a
107.41	Colin Meyer	Tue Apr 2 21:01:16 2002	-ln push@{$p{"@{[sort/./g]}"}},$_;END{print foreach map{s/\d+//;$_}sort map{@$_>1?"$#$_@{[sort@$_]}":()}%p}
108.36	Eric Wright	Tue Apr 2 18:37:59 2002	-nl push@{$n{join'',sort split''}},$_;END{$y{9+$#$_.join' ',sort@$_}=9for%z;s/\d\d//&&print for sort keys%y}
110.32	Qingning Huo	Thu Apr 4 21:45:31 2002	-n $_{"@{[sort split//]}"}.=$_}{map/ /&&print,sort{$a=~y/ //.$a cmp$b=~y/ //.$b}map"@{[sort split]} ",values%_
111.31	Qingning Huo	Wed Apr 3 18:22:51 2002	-n $_{"@{[sort split//]}"}.=$_}{map/ /&&print,sort{$a=~y/ //.$a cmp$b=~y/ //.$b}map"@{[sort split]}\n",values%_
111.35	pom	Tue Apr 2 12:04:17 2002	-ln push@{$p{join"",sort/./g}},$_}{print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}grep{$_=[sort@$_];@$_>1}values%p
118.33	Jaakko Hyvätti	Fri Apr 5 06:48:21 2002	-nl $a=\@{$a{join'',sort split//}};@$a=sort@$a,$_;if(eof){for(sort{$#$a<=>$#$b||$a[0]cmp$b[0]}%a){print"@$_"if$#$_>0}}
119.32	Gareth McCaughan	Mon Apr 1 00:36:46 2002	-l while(<>){$_{join'',sort split//}.=' '.$_;}for(sort map{tr/ //.join' ',sort split}values%_){s/\d*//&&tr/ //&&print;}
122.34	Jaakko Hyvätti	Fri Apr 5 06:36:36 2002	-nl $a=\@{$a{join'',sort split//}};@$a=sort@$a,$_;if(eof){for(sort{$#$a<=>$#$b||$a[0]cmp$b[0]}values%a){print"@$_"if$#$_}}
123.35	Chris Dolan	Mon Apr 1 14:48:25 2002	-ln END{for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%a){print join" ",@$_ if(@$_>1)}}$,=joi\ n"",sort/./g;$a{$,}=[sort@{$a{$,}},$_]
125.36	Trevor Leffler	Wed Apr 3 17:37:44 2002	-lnaF// push@{$w{join"",sort@F}},$_;END{$,=" ";for(sort{@$a<=>@$b||"@$a"cmp"@$b"}map{[sort@$_]}@w{keys%w}){print@$_ if@$_>1}}
129.29	Eric Wright	Tue Apr 2 15:55:52 2002	-nl push@{$z{join'',sort split''}},$_;END{$y{9+$#{$_}.join' ',sort@{$_}}=join' ',sor t@{$_}for%z;/ /&&print$y{$_}for sort keys%y}
130.29	Eric Wright	Tue Apr 2 15:26:43 2002	-nl push@{$z{join'',sort split''}},$_;END{$y{$#{$_}.join' ',sort@{$_}}=join' ',sort@ {$_}for(%z);/ /&&print$y{$_}for(sort keys%y)}
131.34	Ala Qumsieh	Mon Apr 1 16:56:10 2002	-l chomp(@_=<>);map{$g="[$_]"x y|||c;@z=sort grep/^$g$/,@_;$z{"@z"}=0if$#z}@_;map print,sort{$a=~y| ||<=>$b=~y| ||||$a cmp$b}keys%z
132.27	Alain "TopMach" Dupuis	Tue Apr 2 09:46:35 2002	-l open o,pop;for(sort<o>){chop;push@{$o{join'',sort split''}},$_}for(%o){$t=@t=@{$o{$_}};push@$t,"@t"}for(2..10){print for sort@$_}
133.26	Alain "TopMach" Dupuis	Tue Apr 2 07:48:50 2002	-l open o,pop;for(sort<o>){chop;push@{$o{join'',sort split''}},$_}for(%o){$t=@t=@{$o{$_}};push@$t,"@t"}for(2..10){print for(sort@$_)}
140.33	Gabor Szabo	Tue Apr 2 06:46:32 2002	while(<STDIN>){chomp;$w=join'',sort split//;push@k,$w if!@$w;@$w=sort@$w,$_;}for$k(sort{@$a<=>@$b or$$a[0]cmp$$b[0]}@k){print"@$k\n"if@$k>1}
142.28	tinita	Fri Apr 5 09:01:33 2002	-nl $"="";$h="@{[sort(split//)]}";push@{$h{$h}},$_;END{$"=" ";(@{$h{$_}}>1)&&print "@{[sort@{$h{$_}}]}"for sort{@{$h{$a}}<=>@{$h{$b}}}keys%h;}
148.26	Phillip Pearson	Tue Apr 2 03:05:02 2002	-l while(<>){chop,push@{$w{join'',sort split//}},$_}for(values%w){($l=$#$_)&&push@{$o{$l}},join' ',sort@$_}for(keys%o){print join"\n",sort@{$o{$_}}}
161.24	Stéphane Reuille	Fri Apr 5 10:23:27 2002	-l for(<>){chop;push@{$a{join '',sort split //}}, $_;}for(sort{$a<=>$b or@{$a{$a}} cmp @{$a{$b}}}keys%a){print join' ',sort split/ /,"@{$a{$_}}" if @{$a{$_}}>1;}
161.25	Phillip Pearson	Tue Apr 2 03:01:59 2002	-l while(<>){chop;push@{$w{join('',sort(split(//)))}},$_}for(values%w){($l=$#$_)&&push@{$o{$l}},join(' ',sort(@$_))}for(keys%o){print join("\n",sort(@{$o{$_}}))}
163.25	Phillip Pearson	Tue Apr 2 02:55:21 2002	-l while(<>){chomp;push@{$w{join('',sort(split(//)))}},$_}for(values%w){$l=$#$_;$l&&push@{$o{$l}},join(' ',sort(@$_))}for(keys%o){print join("\n",sort(@{$o{$_}}))}
177.24	Erik Johansen	Fri Apr 5 20:45:44 2002	-ln END{map{print}map{sort+keys%$_}@e[2..@e]}open+D,D;%e=map{chop;$_,$_}<D>;@s="";@s=map{my@o;s;;$o[@o]=$`.$c.$';ge;@o}@s,while$c=chop;@s=grep{delete$e{$_}}sort@s;$e[@s]{"@s"}=1
188.22	Samy Kamkar	Mon Apr 1 04:16:22 2002	chop,push@{$x{join"",sort/./g}},$_,while<>;@{$l{(sort@{$x{$_}})[0]}}=sort@{$x{$_}}for+keys%x;for(keys%l){push@{$r{$f}},$_,if($f=@{$l{$_}})>1}for(keys%r){print"@{$l{$_}} "for+sort@{$r{$_}}}
193.21	Samy Kamkar	Mon Apr 1 04:04:56 2002	chop,push@{$x{join"",sort/./g}},$_,while<>;@{$l{(sort@{$x{$_}})[0]}}=sort@{$x{$_}}for+keys%x;for(sort+keys%l){push@{$r{$f}},$_,if($f=@{$l{$_}})>1}for(keys%r){print"@{$l{$_}} "for+sort@{$r{$_}}}
211.20	Phillip Pearson	Tue Apr 2 02:23:53 2002	while(<>){chomp;$l=join('',sort(split(//,$_)));if($w{$l}){push@{$w{$l}},$_}else{$w{$l}=[$_]}}for(values%w){if($#{$_}>0){push@{$o{$#{$_}}},join(' ',sort(@$_));}}for(keys%o){print join("\n",sort(@{$o{$_}})),"\n";}
216.21	tinita	Fri Apr 5 19:03:48 2002	-nl $"="";$h="@{[sort(split//)]}";push@{$h{$h}},$_;END{$"="";(@{$h{$_}}>1)&&print"@{[sort@{$h{$_}}]}"for sort{@h=sort@{$h{$a}};@j=sort@{$h{$b}};@{$h{$a}}<=>@{$h{$b}}||$h[0]cmp$j[0]||length$h[0]<=>length$h[0]}keys%h;}
217.21	Ala Qumsieh	Mon Apr 1 16:25:44 2002	-nl push@_,$_}{@t=@i=();$x=join'&',map"/$_/",split//,$i[0]=shift@_;eval$x&&length==length$i[0]?push@i,$_:push@t,$_ for@_;push@o,[sort@i]if$#i;(@_=@t)&&redo;print join$",sort@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}@o
228.22	Erik Johansen	Fri Apr 5 20:45:20 2002	-ln END{map{print}map{sort+keys%$_}@e[2..@e]}open+D,D;%e=map{chop;$_,$_}<D>;@s="";@s=map{my@o;s;;$o[@o]=$`.$c.$';ge;@o}@s,while$c=chop;@s=grep{delete$e{$_}}sort@s;$e[@s]{"@s"}=1 #Note: Dictionary expected to be found in file 'D'
268.23	Sec	Thu Apr 4 21:54:35 2002	-ln $,=" ";$w{$_}=1; END{ $e{$_}=[sort grep{$w{$_}-->0}g(split(//))]for(keys%w); for(sort{$#{$a}<=>$#{$b}||${$a}[0]cmp${$b}[0]}values%e){print@{$_}if$#{$_}>0}} sub g{ return@_ if(!$#_); my(@a,@q,$l); while($l=shift){ push@a,map {$l.$_} g(@q,@_); push@q,$l } return@a }
306.20	artist	Mon Apr 1 20:00:27 2002	my @list; while(<DATA>){ chomp; push @list,$_; } my $X; foreach my $word (sort @list){ my $aword = join '',sort split //,$word; push @{$X->{$aword}}, $word; } foreach (sort { $#{$X->{$a}} <=> $#{$X->{$b}}} keys %{$X}){ next if @{$X->{$_}} == 1; print join "\t", @{$X->{$_}},"\n"; }
339.18	Gabor Szabo	Mon Apr 1 20:40:36 2002	chomp (@x = <STDIN>); while (@x) { $o = shift @x; $w = join '', sort split //,$o; push @{$h{$w}}, $o; } foreach $k (keys %h) { delete $h{$k} if (@{$h{$k}} == 1); @{$h{$k}} = sort @{$h{$k}}; } foreach $k (sort {@{$h{$a}} <=> @{$h{$b}} and $h{$a}->[0] cmp $h{$b}->[0]} keys %h) { print "@{$h{$k}}\n" if @{$h{$k}}>1; }
467.13	Scetbon Cyril	Fri Apr 5 15:33:28 2002	open IN,pop;while($l=<IN>){chomp$l;my$f;for$i(0..$#a){@rep=map{join('',sort spli t//,$l)eq join('',sort split//,$_)}split/ /,$a[$i];@rep=1if$l eq""&&$a[$i]!~/\w/ ;if(grep{/1/}@rep){$a[$i]=!exists$a[$i]?$l:$a[$i].' '.$l;$f=1}}push@a,$l if!$f}m ap{$t=$_;if(!/(\w)/){push@sorted,$t}else{push@sorted,join(' ',sort split(/ /,$t) )}}grep{/ /}@a;@sorted=sort@sorted;for(sort{for$j($a,$b){$len{$j}=0;$len{$j}++wh ile$j=~/ /g}$len{$a}<=>$len{$b}or$a cmp$b}@sorted){print$_.$/}
467.13	Scetbon Cyril	Fri Apr 5 15:52:33 2002	open IN,pop;while($l=<IN>){chomp$l;my$f;for$i(0..$#a){@rep=map{join('',sort spli t//,$l)eq join('',sort split//,$_)}split/ /,$a[$i];@rep=1if$l eq""&&$a[$i]!~/\w/ ;if(grep{/1/}@rep){$a[$i]=!exists$a[$i]?$l:$a[$i].' '.$l;$f=1}}push@a,$l if!$f}m ap{$t=$_;if(!/(\w)/){push@sorted,$t}else{push@sorted,join(' ',sort split(/ /,$t) )}}grep{/ /}@a;@sorted=sort@sorted;for(sort{for$j($a,$b){$len{$j}=0;$len{$j}++wh ile$j=~/ /g}$len{$a}<=>$len{$b}or$a cmp$b}@sorted){print$_.$/}