Evaluated proc eachline {str cmd} { join [map [nlsplit $str] {x {$cmd $str}}] \n }