perl -ne"system 'perl.exe', '-pe1', $_;"  test.lst >test.all