求高手用PERL解决遇到的提取文本问题

原文件:
data demog;
set pk;
by id;
do i=1 to 10;
output;
end;
run;

输出文件：

data demog;
set pk;
by id;
/do/ i=1 to 10; /*do...end contain output*/
  /output/; /*do...end contain output*/
 /end/; /*do...end contain output*/
run;

  目的：
  1)找到含有do output end这样的模块 
  2)在每一句后面加上一句注释/*do...end contain output*/，并且注释要和这一句在同一行上
  3)要在这些关键字前后要加上这样的符号/do/
  4)将原文件输出来

实用正则表达式，应该可以解决你提的问题。

谢谢您的建议。我可以用正则提取出文本来，但是不知道怎么在同一行上插入一句注释。