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

##</code><code>##

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