perl -ne"print qx[perl -pe1 $_]" test.lst > test.all