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