my @args = (
        $ARGV[0],           # file to process
    
        "$ARGV[0].clean",   # processed file
    
        16,                 # numeric value of the "usual"
                            # line starting character
    
        16,                 # "usual" starting length of lines
                            # starting with $correct_start_char
    
        13,                 # correct length of lines after they
                            # have been stripped
    
        14                  # length of lines that do not include
                            # the extra stop and start characters
    );


my($raw_file_length, $clean_file_length) = process_file( @args );