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