my $x = "def";
say ref( \substr( $x, 0, 0 ) );  # LVALUE
substr( $x, 0, 0 ) = "abc";
say $x;                          # abcdef