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

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