> my $prize = (split(/<>/,$paylist{"$id<>$nm<>$ps"}))[4];
> $bg = $bg ne '' ? "$bg,$extra" : $extra if($prize ne '' && $prize ne "\n");

修正が洩れていました。
ここの$extraは全て$prizeです。
なので、$prizeが「トロフィー△00100000IgNsTi」となります。

▼関連発言
│
└◆793:コロシアムの賞品 [コーノ] 09/25 18:33
　└◆794:Re:コロシアムの賞品 [moon] 09/25 19:43
　　└◆795:まとめると・・ [コーノ] 09/25 20:38
　　　└◆796:Re:まとめると・・ [moon] 09/25 22:02<-last