...there should be no changes made to the COW memory

Why not? Both versions modify the string - just differently:

$ perl -le '$data = "xxx"; substr($data, 1, 1) |= 1; print $data'
x1x

$ perl -le '$data = "xxx"; substr($data, 1, 1) |= chr(1); print $data'
xyx
[download]