while (<INFILE>)
{
     next if /^#/;

     my ($infile, $dir, $type) = split;
     print "$infile $dir $type\n";
}

##</code><code>##

while (<INFILE>)
{
     next if /^#/;

     my @split = (split)[0..2];
     print "@split\n";
}