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