Evaluated regsub {(\d+)} {2012} [eval {set ok \\u\\1; . \$ok}]