Posted to tcl by kbk at Mon Nov 27 15:23:26 GMT 2017view pretty
% set x [join {this is a test} \n]
this
is
a
test
% regexp -all -inline -line {^t[a-z]*} $x
this test
% set x [join {this is a test} \n]
this
is
a
test
% regexp -all -inline -line {^t[a-z]*} $x
this test