Select Code to Download

my $given_item = {
    'Criteria' => 'OR',
...
};

my ($item, $future_use) = search_mail($given_item);

use strict; 
use Win32::OLE;
...
    $filter =~ s/ $criteria $//;
    return $filter;
}