use strict;
use warnings;

my $infile = shift;

open(INIFILE, "$inifile");

while (<INIFILE>) {
      (my $server, my $dir, my $type) = split if !/^#/;
      print "$server $dir $type\n";
}

close(INIFILE);

##</code><code>##

# commments
# more comments
# yadda yadda

fooserver foodir footype
fooserver2 foodir2 footype2