Help for this page
while (<>) {
print "> ", $_;
perl -i.bak -n -e "print '> ', $_" file1.txt file2.txt etc.etc