Select Code to Download

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

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

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

    while (<INFILE>) {
        my $line = $_;
...
        }
        print OUTPUT $line;
    }