$op= q('tag00'); eval "sub{dofunc($op);}"