$perl -pi'orig_*' -e 's/I/A/ if /^THIS/' fileA