use Devel::Peek qw( Dump );
my $s = "abcdef";
$s .= "g";  # Trigger COW
Dump( $s );
substr( $s, 0, 1, "" );
Dump( $s );