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