Select Code to Download

sub mylcfirst {
    my $x;
...
$_      =   'lrep esu';
$str    =   mylcfirst myreverse myuc;
print $str."\n";