$line=~s#(\d+)#<lr=C$1>$1</lr>#g;