Select Code to Download

   # filter any unwholesome file names
   next if ( !-f $file || $file =~ m/
...
      \.txt$|         # is a .txt file
      \$|&|<|>|@|\/   # contains any shell control characters
      /x );