$line=~s!\(([1-9]{1,3}((, |\\p=n-\\)[1-9]{1,3})*)\)!\(@{[map"<lr=C$_>$_</lr>",split"(, |\\p=n-\\)",$1]}\)!g;