2ch特化型サーバ・ロケーション構築作戦 Part28

＞809
trは遅いですよ。。。
このほうがよさげ。

if($GB->{KEITAI} eq 1)
{
my $i = 0;
my $j = length($idnotane);
$idnotane .= '-';
while ($i < $j) {
$idnotane .= ((substr($idnotane, $i++, 1) & "\x60") eq "\x60") ? 1 : 0;
}
}