perl -e 'while (<>) { print "XXX\n" ;print; print "XXX" }'