perl underscore2camelcase

https://stackoverflow.com/questions/25287009/perl-simple-regex-uppercase-words-separated-by-underscore/25287295

#!/usr/bin/perl

my $in =  "PRINT_THIS_TEXT_IN_CAMEL_CASE";
my $res =  under2camel ($in);
print "in:$in\tres:$res\n";



sub under2camel {
	my $str = shift @_;
	my $result;
	
	$str = lc $str;

	my @split = map(ucfirst, (split/(_)/, $str));

	my $result = "";
	foreach my $kk (0 .. $#split) {
#		print $split[$kk] . "\n";
		$result .= $split[$kk];
	}
	$result = lcfirst $result;
	$result =~ s/_//g;
	
	return $result;
}