$output_line = substr( $line, 0, 98 ) 
        . $juris1 . substr( $line, 100, 48 )
        . $juris2 . substr( $line, 149, 61 ) 
        . "\n";

##</code><code>##

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

##</code><code>##

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

##</code><code>##

    while (<INFILE>) {
        my $line = $_;
        if ( $line !~ m/^2/ ) {
            substr($line,  99, 1, "9");
            substr($line, 148, 1, "Z");
        }
        print OUTPUT $line;
    }