my $xpm = qq{
		:/* XPM */
		:static char *xpm[] = $lb
		:"$w $h $nsyms 1",
	};

	# Fill in XPM color symbols
	foreach my $key (keys %$h_xpm) {
		my $line = sprintf "%s c %s", $key, $h_xpm->{$key};
		$xpm .= qq{\n\t\t:"$line",};
	}
	$xpm =~ s/(^\s+:)|((?<=\n)\s+:)|(\s+$)//g;

##</code><code>##

	$xpm =~ s/^\s+://mg;
	$xpm =~ s/\s+$//;

##</code><code>##

	$xpm =~ s/(?:^\s+:)|(?:(?<=\n)\s+:)|(?:\s+$)//g;