#!/usr/bin/perl
my $file = $ARGV[0];
open(FILE,$file) || die "Cannot open file\n";
my @content=<FILE>;
close FILE;
foreach $item(@content){
  my $line = $item;
  chomp($line);
  my $chunk = substr($line,0,1);
  if (($chunk ne ';') and ($chunk ne '#')) {
    if (length($line)>0) {print "$line\n";}
  }
}