package DemoSwear;
$VERSION = '0.01';
use Regexp::Common;

use Filter::Simple;

FILTER_ONLY
	all    => sub { print "-------\n$_" },
	string => sub { s/$RE{profanity}/darn/g },
	all    => sub { print "-------\n$_" },
	code   => sub { s/$RE{profanity}|[@%#&*]{3,}([-]\S+)?//g },
	all    => sub { print "-------\n$_" },