Select Code to Download

use strict;
use warnings;
...
    print "ARGV[$i] = $_\n";
    $i++;
}

These are the 4 arguments:
ARGV[0] = s/foo/bar/
ARGV[1] = file1.txt
ARGV[2] = file2.txt
ARGV[3] = file3.txt

use strict;
use warnings;
use Data::Dumper;
print Dumper(\@ARGV);

$VAR1 = [
          's/foo/bar/',
...
          'file2.txt',
          'file3.txt'
        ];

use strict;
use warnings;
...
    print "ARGV[$i] = $_\n";
    $i++;
}

These are the 3 arguments:
ARGV[0] = file1.txt
ARGV[1] = file2.txt
ARGV[2] = file3.txt