in reply to sed style file parse from command-line

Maybe something along:

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