Select Code to Download

perl -pi.bak -e 's/OLDSTRING/NEWSTRING/g' FILELIST

for my $file (@files){
  open IN,"$directory/$file" 
...
  # unlink "$directory/$file" or die $!;
  # rename "$directory/$file.out", "$directory/$file" or die $!;
}