$ perl -e '( $a = "Hello" ) =~ s/(.+)/\l$1/; print $a'
    hello