#!/usr/bin/perl
use feature 'say';
my $str = "PRINT_THIS_TEXT_IN_CAMEL_CASE";
$str = lc $str;
my @split = map(ucfirst, (split/(_)/, $str));
say @split;
my $result = "";
foreach my $kk (0 .. $#split) {
print $split[$kk] . "\n";
$result .= $split[$kk];
}
$result = lcfirst $result;
$result =~ s/_//g;
print $result, "\n";
