First use '' in an example, where you don't want to be bitten by translation eg. $line in this.

Second. Why use such in obscure map line when this will do the job nicely.

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