system("diff $file1 $file2 | sed -re '/^[><]/d' >| temp.txt"); open (FILE, 'temp.txt'); @diffs = ;