$line =~ s/^(?=R.*\$SUB=)<\*\d+>//;

##</code><code>##

s/<\*\d+>//;