gistfile1.pl

open my $wp_config, '<', '../wp-config.php';
my $define_re = qr{define\( \s* ["'] ([^"']+) ["'] \s* , \s* ["'] ([^"']+) ["'] \s* \)}x;
my %config;

while (my $line = <$wp_config>) {
  if (my ($constant, $value) = $line =~ $define_re) {
		$config{$constant} = $value;
	}
}