hoge_mugeをHogeMugeにする

っていうのをやってくれるCPANモジュールとか無いかな。

ワンライナーでやるならこんな感じ？

 my $str = q{hoge_muge};
 print join q{} , map { ucfirst lc } split /_/ , $str; # HogeMuge

で、逆の場合

 my $str = q{HogeMuge};
 print join q{_} , map { lc } $str =~ /([A-Z][a-z\d]*)/g; # hoge_muge

これが限界？