$c = 'a_c_code';
print join " ", map { ucfirst } split /_/, $c;