新手 正则 文本替换的问题 请教

我截取了一段有所有特征的文本,请大家帮忙看看如何写.


源文件:
-------------------------------------------------------------------
// VProc Setting
//00_34_01_07 // [7] acc_enb, [6] frc_enb
00_34_01_03
00_34_02_0a
00_34_a1_1f
00_34_1b_d0
00_3a_00_ff

1f_00_00_00
--------------------------------------------------------------------



需要替换成:
------------------------------------------------------------------------------
## VProc Setting
##WriteReg(0x14,0x01,0x07); ## [7] acc_enb, [6] frc_enb
WriteReg(0x14,0x01,0x03);
WriteReg(0x14,0x02,0x0a);
WriteReg(0x14,0xa1,0x1f);
WriteReg(0x14,0x1b,0xd0);
WriteReg(0x1a,0x00,0xff);
------------------------------------------------------------------------------------

perl -pe 's/^[^0\/]{2}.*//g;s/\//#/g;s/\b00_3(\w)_(\w\w)_(\w\w)/WriteReg(0x1$1,0x$2,0x$3);/g'  文件名