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