while (/(.)/g) {
        $camel .= $1 if $1 ne " ";
}