perl -ape '{ next, if /SSS/; s/$/ XXX/; }' -i filename

UNIXというかperlだが…