Select Code to Download

open file;
while(<file>) {
...
  #handle $line1, $line2, $line3 all at once then
  #loop up for the next entry
}