Select Code to Download

    $ perl -e '( $a = "hello" ) =~ s/^\l//; print $a'
    hello

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