ya ya the code is not perfect, I know, but it works. That jump out of the loop when it gets a result.

I trying to get more involved with perl,