perl -pi.orig -e 'BEGIN{@ARGV=map glob, @ARGV} s/original/substitute/g' '*.foo' 'bar.*'