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