Posted to tcl by Bradipo at Mon Nov 07 18:33:30 GMT 2011view pretty
$ tclsh something
cn:: QnJhZGlwbw==
cn:: QnJhZGlwbw==
: QnJhZGlwbw==
Interactive:
% set something "cn:: QnJhZGlwbw=="
cn:: QnJhZGlwbw==
% regexp -nocase {^cn:: *(.*)$} $i dummy tmp
1
% set tmp
QnJhZGlwbw==