perl -ple 'BEGIN{close ARGV; binmode ARGV} s/foo/bar'