Select Code to Download

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

sub find
...
    if (ref($critVal) eq 'Regexp') {
        return ($objectVal =~ $critVal) ? 1 : 0;
}