my $ph = $Filter::Simple::placeholder;

#	s{($ph)}{if ($$ph)}ge;
	while (m{$ph}g) {
		print "placeholder: $1\n";
		my $i = unpack('N', $1);
		print "i: $i\n";
		print "value: ", Dumper($Filter::Simple::components[$i]), "\n";
	}

sub dump_components {
	print "=" x 78, "\n";
	if ($echo) {
		for (@Filter::Simple::components) {
			print "-" x 78, "\n";
			print "$_\n";
			if (ref $_) { print "[".join(",", @$_), "\n"; }
		}
	}
}

sub string_filter {
	dump_components();
#	print ">>$_<<\n" if "$echo";
}