do { print $_; print FILE "*****************"; } while ()