{
    foreach my $pattern (@patterns)
    {
	my %props = $pattern->props;
	
	next unless ($props{type} eq 'pattern');

	next unless ($props{Status} eq 'enabled');

	$OUT .= "$_\n" for (split(/,/, $props{Body}));
    }

    "";
}
