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

with foreach? If that is the case, there's no need for foreach, just replace those two lines with:

while (my $line = <INFILE>) {
[download]

Did you know that substr can take a 4th argument?

$juris1 = substr( $line, 99, 1 );
$juris2 = substr( $line, 148, 1 );

$juris1 = "9";
$juris2 = "Z";

#or
#
#substr( $line, 99, 1, '9' ); # 4th argument replaces
#substr( $line, 148, 1, 'Z' );# selected sub-string
[download]

It doesn't look like you're using strict and warnings. They are real timesavers and you should look in to using them.