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