perl -ne 'print "XXX\n" ;print; print "XXX"'