while (<>) {

##</code><code>##

   print "> ", $_;

##</code><code>##

perl -i.bak -n -e "print '> ', $_"  file1.txt file2.txt etc.etc