use Devel::Peek qw( Dump );
$_ = "x" x 999;
$_ .= "x";  # Force unsharing.
Dump( $_ );
$_ = "abc";
Dump( $_ );