perl tao.pl --B-today | perl -e'while (<>){print($_,$/) if ($_=~s/^/ / && $_=~s/[\r\n]//g)}'| Xdialog --rc-file ~/.ocrebox.rc --title="Today's TAO" --textbox - 0 0 &