for %a in (*.txt) do perl -pi xx.pl %a