@ARGV = qw/file1 file2 file3/;

##</code><code>##

perl do_it file1 file2

##</code><code>##

perl -i.bk do_it foo.bar