Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

use Regexp::Common qw /profanity/;
...
    /$RE{profanity}/               and  print " contains profanity";
    print "\n";
}

Select or download this

package Regexp::Common::profanity; {

use strict;
...
            (see http://www.perl.com/perl/misc/Artistic.html)

=cut