Select Code to Download

use 5.6.0;
use warnings;
...
}

__END__

-user => ucfirst(lc($3)).uc(substr($4,0,1))
+user => "@{[ ucfirst (lc $3) . uc (substr $4, 0, 1) ]}"

use 5.6.0;
use warnings;
...
}

__END__