my @rows = map {chomp; s/[\x7F-\xFF]//g; s/[\x00-\x1F]//g; $_} read_file($file);