$output_line = "$line\n"; substr($output_line, 99, 1) = $juris1; substr($output_line, 148, 1) = $juris2;