Not as fast and doesn't handle a list of files, but for entertainment value:

perl -MTie::File -e 'tie @file, 'Tie::File', $ARGV[0]; splice @file, 3
+1, 1;' filename
[download]

(Tie::File is in the standard lib now.)