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

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