perl -ne 'print; print `cat fileA` if /SEARCHPATTERN/' fileB > fileC && mv fileC fileB