list linkSetSearch(string rexgep, string needle)
{
    list results;
    list search;
    integer x;

    if(rexgep == "")
        rexgep = ".*";

    search = llLinksetDataFindKeys(rexgep, 0, -1);

    for(x = -llGetListLength(search); x < 0; ++x)
    {
        if(!llSubStringIndex(llLinksetDataRead(llList2Key(search, x)), needle))
            results += llList2String(search, x);
    }
    return results;
}