Select Code to Download

open FIN, ... or die ...;
open FOUT, ... or die ...;
...
}
close FIN;
close FOUT;

perl -ne "s/somepattern/somethingelse/g" infile > outfile

setVarAndDoSomething(varname1, value1);