> perl -MFile::DosGlob -i.bak -pe "BEGIN {@ARGV=glob(join ' ', @ARGV)} s/foo/bar/g" *.txt *.bak