perl -ne '$.==7 and system("cat bert");print $_;' < fred >tmp; mv tmp fred