"245$a": [ { "regexp": 's/(foo|bar)/He said "$1"/' } ] #### DB<111> $_="abc" DB<112> s/(.)/@{[print "what? --> $1\n"]}/g what? --> a what? --> b what? --> c DB<113>