perl -ple1 *.pl *.txt