open (OUT, ">$txtfile.redo");