Select Code to Download

while (<INFILE>) {
    my $line = $_;

while (my $line = <INFILE>) {

$juris1 = substr( $line, 99, 1 );
$juris2 = substr( $line, 148, 1 );
...
#
#substr( $line, 99, 1, '9' ); # 4th argument replaces
#substr( $line, 148, 1, 'Z' );# selected sub-string