sub file_processing {
   my ($script, $arg, $file) = @_;
   my @ret;

   open(FILE, "$script $arg $file |") or die "can't do it: $!";

   while (<FILE>) {
      chomp;
      next if /^#|none|unkno/i;
      push(@ret, $_);
   }
   close(FILE);

   return @ret;
}