main::(-e:1):   0
  DB<1> $_='0000'

  DB<2> p $_++
0000
  DB<3> p $_++
0001
  DB<4> p $_++
0002
  DB<5> $_='abcd'

  DB<6> p $_++
abcd
  DB<7> p $_++
abce
  DB<8> p $_++
abcf