convert all underscore variable names to cammel case

toCammel.perl

#!/usr/bin/perl -wp

my @saved = ();
while (s#((['"]).*?\2)#<<toCammelSkip>>#) {
    push @saved, $1;
}

while (/([a-z0-9]+)(_[a-z0-9]+)+/i) {
    $cammelled = $orig = $&;
    $cammelled =~ s/(_[a-z0-9]+)/$x=substr($1,1); "\u$x"/ieg;
    s/$orig/$cammelled/;
}

for (my $i=0; $i<=$#saved; ++$i) {
    s#<<toCammelSkip>>#$saved[$i]#;
}