# file name for corrected data my $clean_file_name = "$processfilename.clean"; # numeric value of the "usual" line starting character my $correct_start_char = 16; # "usual" starting length of lines starting with $correct_start_char my $correct_start_length = 16; # correct length of lines after they have been stripped my $correct_clean_length = 13; # length of lines that do not include the extra stop and start characters my $typed_length = 14; # Do not change these values, they are used to # report the number of lines read, and written my $raw_file_length = 0; my $clean_file_length = 0;