s/\?/{+,-}/g,map{eval s/=/^/r||print}<"$_">for<>