Re: Replacing Text At Specific Positions

[FunkyMonk]

I'm confused by "I cannot get any "foreach" statement to function correctly". Do you mean you want to replace

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

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

while (my $line = <INFILE>) {

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

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