use Devel::Peek qw( Dump );
$_ = "abcdefghi";
$_ .= "j";  # Force unsharing.
Dump( $_ );
substr( $_ , 0 , 1 ) = "";
Dump( $_ );