Why toss when you can label? Shell fu FTW.

for host in foo bar baz ; do
  { ssh $host echo 'I R OUT' \; echo 'I R ERROR' 1\>\&2 } > >( perl -l
+ne "print qq{$host O: \$_}" ) 2> >( perl -lne "print qq{$host E: \$_}
+" )
done
[download]