$ 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