Extract line 7 from fred to bert

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

Insert at line 7 in fred from another file bert

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