Select Code to Download

use strict; use warnings; use feature 'say';
use Data::Dumper;
...
lfxosc_r_ref_ctrl_c_jtag[2]    WR
rd_rsrv_hfxosc_jtag            RD
rd_rsrv_hfxosc_jtag            RD

$ perl 1196402.pl
$VAR1 = [
...
          'reg rd_rsrv_hfxosc_jtag'
        ];