Strign::CamelCase

便利な変換君。

use String::CamelCase qw/camelize/;

warn camelize("soi_ya_soi_ya");

こんな感じ。

SoiYaSoiYa

http://search.cpan.org/~hio/String-CamelCase-0.01/lib/String/CamelCase.pm