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