Posted to tcl by evilotto at Wed Nov 28 22:46:50 GMT 2012view pretty

proc rs_eval {re text replacement} {
    set etext [string map {\$ \\$ \\ \\\\ \[ \\[ \] \\] \" \\" \} \\\} \{ \\\{} $text]
    regsub -nocase -all -- $re $etext $replacement stext
    return [subst $stext]
}