RR<9> vr<9> vr<8> 1.25126K $SUB=<*40>Vrefout $[PI]
RR<10> vr<10> vr<9> 1.25126K $SUB=<*40>Vrefout $[PI]
RR<11> vr<11> vr<10> 1.25126K $SUB=<*40>Vrefout $[PI]
RR<12> vr<12> vr<11> 1.25126K $SUB=<*40>Vrefout $[PI]

##</code><code>##

RR<9> vr<9> vr<8> 1.25126K $SUB=Vrefout $[PI]
RR<10> vr<10> vr<9> 1.25126K $SUB=Vrefout $[PI]
RR<11> vr<11> vr<10> 1.25126K $SUB=Vrefout $[PI]
RR<12> vr<12> vr<11> 1.25126K $SUB=Vrefout $[PI]

##</code><code>##

if ($line =~ /^R.*\$SUB\=\<\*\d+\>/){
  my @resline = split /=/, $line;
  $resline[1] =~ s/\<\*\d+\>/=/;
  $line = $resline[0].$resline[1]; 
}