cat /tmp/file | perl -e 'print "XXX\n" ;print <>; print "XXX"'