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