For all upper case or all lower case, just use Text::Autoformat.

/usr/bin/perl

use strict;
use warnings;
use Text::Autoformat;

my $formatted = autoformat 'WHAT DO YOU WANT RETURNED', 
{ case => 'lower' };
print $formatted;

my $formatted1 = autoformat 'what do you want returned', 
{ case => 'upper' };
print $formatted1;
[download]