% perl -le 'print "@{ [ map ucfirst lc, qw( ODE TO PERL ) ] }"' Ode To Perl