!!学び　色々
!hole 1
y//構文を失念していました。\nより改行の方が短いに決まっている
*わたし

 print$b+=$a=()=(/[ADO-R0469B8]/g,/[B8]/g),",$a\n"for<>

*いっちーさん

 print$b+=$a=y/B8/0/+y/ADO-R0469//,",$a
 "for<>
!hole 2
*perlのソートは安定的ソートなので順番で頑張らなくても良かったんだ。
*2文字づつの分解は/(?=(\S\S))/g)で良いのね。精進、精進
*あれ？ソート自体もいらないのか？？？
--
*わたしの回答

 $Q=A;sub x{my%h;my%y;($a,@c)=/./g;$k=$a.$_,$k=~/ /?0:$h{$k}++,$y{$k}||=++$i,$a=$_ for@c;($z)=sort{$h{$b}<=>$h{$a}||$y{$a}<=>$y{$b}}%h;$h{$z}>1&&($m.="$M$Q:$z",$M=",",s/$z/$Q/g,$Q++,x($_));"$m\n$_"}print x($_)for<>
*moznion さんの回答
 $o=A;$_=<>;{$m=$s=$_;($c=()=$s=~/$_/g)>$m&&($m=$c,$w=$_)for/(?=(\S\S))/g;$m>1&&(s/$w/$o/g,$p.=$o++.":$w,",redo)}chop$p;print"$p
 $_"
 =CUT

!修正版

 $Q=A;sub x{my%h;$h{$_}++for@c=/(?=(\S\S))/g;($z)=sort{$h{$b}-$h{$a}}@c;$h{$z}>1&&($m.="$M$Q:$z",$M=",",s/$z/$Q/g,x($Q++));"$m
 $_"}print x()for<>

*Score: -106