use strict;
my $str = "ello";
substr($str,0,0) = "H";
print $str, "\n";