Select Code to Download

$f->do_this({
        '.*\.doc$'    => [qw/delete_me         1/],
...
        'dean'         => [qw/return_this        rel_file|stat_8/], 
        'F:/dean/     => ['mirror_to',        'C:\test']
        });

sub do_this {
    my ($self, $args) = @_;
...
    $self->{find} = $string;    ## this is the string to match files a
+gainst
    #print $self->{find};
}

if (/$self->{find}/) {
                my $this = $&;
                my $matched = ## find pattern used here
                process($self, $_, $dir, $matched);
            }