I've not done anything like this, but would Search::Tools be similar to what you are looking for?