perl -pi.bak -e '/^2/ or substr $_, 99, 1, 9 and substr $_, 148, 1, "Z"' input_file_name