perl -pe ' /^THIS/ && s/I/A/ ' <infile.txt >outfile.txt