for (@files) {
  open FILE, $_;
  while (<FILE>) {
    push @res, grep {ord($_)<128} split //, $_;
  }
  close FILE;
}