sub camelize {
    my $str = shift;
    return join( '',
        map { ucfirst $_ }
            split( /(?<=[A-Za-z])_(?=[A-Za-z])|\b/, $str )
    );
}