Help for this page

Select Code to Download

Select or download this

sub UpperLower {
    my( $old, $new ) = @_;
...

    return join '' => @new;
}

Select or download this

sub UpperLower2 {
    my( $old, $new ) = @_;
...

    return $new;
}