perl -ne '$fh = ( $.==7 ? STDERR : STDOUT ); print $fh $_;' < fred >tmp 2>bert; mv tmp fred

##</code><code>##

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