while (read S, $contents, 80)