Select Code to Download

while (<INFILE>)
{
     next if /^#/;
...
     my ($infile, $dir, $type) = split;
     print "$infile $dir $type\n";
}

while (<INFILE>)
{
     next if /^#/;
...
     my @split = (split)[0..2];
     print "@split\n";
}