perl -lp00e1 file.txt