my ($fsObj) = $HostA->find(
       type     => 'DS',
       criteria => { name =>qr/^data_123$/i}, 
           force_sync =>1,        
       );

##</code><code>##


sub find
{

 foreach my $k (keys %{$params{criteria}}) {
                    my $objVal=$_[0]->getProperty($k);;

                   my $critVal = $params{criteria}{$k};
                   if (defined $objVal) {
                        return 0 if (!($self->_compareCriteria($objVal,$critVal)));
                    }

}


sub _compareCriteria
{
    my ($self) = shift(@_);
    my ($objectVal, $critVal) = (@_);
    if (ref($critVal) eq 'Regexp') {
        return ($objectVal =~ $critVal) ? 1 : 0;
}