for (split//,$line) {
            $test = sprintf "\%3o\n", ord $_;

                       if ($test == 14) {