Select Code to Download

$ perl -i -ple '$_.="\n" if $. % 4 == 0; close ARGV if eof' -- FILES

{ # new scope for local
    local *ARGV; @ARGV = @files;
...
        close ARGV if eof;
    }
}