~ $ perl -de0

...

  DB<1> $_='XXXX'

  DB<2> s/(?:)/Y/ # genuine empty pattern

  DB<3> p
YXXXX
  DB<3> s/(?:)/Z/g

  DB<4> p
ZYZXZXZXZXZ
  DB<4>