#!/usr/bin/perl
# deletes comments and empty lines
# needs param: name of file to edit
# 20120506

while (<>) {

  if ( /^[#;]/ || /^\s*$/ ) {
     next;
  } else {
     print;
  }
}