BBMのところは、こうやってるみたい。

$idnotane =~ s/\_/\-/g;