use vars qw' %CACHED_RX ';

sub do_this
{
    my $self = shift;
    my %rx = %{ shift() };

    for ( keys %rx )
    {
        my $rx = $CACHED_RX{$_} ||= qr/$_/;

        if ( $self->{'find'} =~ $rx )
        {

        }
    }
}