#!/usr/bin/perl
# dump a config file, stripping comments and blank lines

while(<>) { print unless m/^\s*#/ or m/^\s*;/ or m/^\s+$/; }