perl -laF/\n/ -000ne"print join chr(9),@F" theFile