package Rules;

sub rule1 {
    shift =~ m/some_pattern/;
}

##</code><code>##

require rules.pl

&do_something() if Rule::rule1($match_this_data);