DB<111> $_="abc"

  DB<112> s/(.)/@{[print "what? --> $1\n"]}/g
what? --> a
what? --> b
what? --> c

  DB<113>