for /f %i in ('dir /b *.pl') do @perl -i*.bak -pe"s/foo/bar/g" %i