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