$var = "([f][o][o]|[b][a][r])";
@ret = grep(/$var/, @foo);