Select Code to Download

while(<>){
  next if $. <4;
  #codeblockdoingsomeotherthings
  print;
}

#1 slurping the whole thing in memory, and splice 
@file = <>;
...
  #...
  print;
}