Help for this page
package Rules; sub rule1 { shift =~ m/some_pattern/; }
require rules.pl &do_something() if Rule::rule1($match_this_data);