Very nice. ++ from me. There are a few points though:

If you are going to put comments in the code, put # signs in front of them (lines 1-26).

Remember that you can catch the matchs as a list, like this:  my @matchs = ( $text =~ /$regexp/ ); So you can catch any number of matchs. This would mean using special cases for your function.

There are two other regexp analysers that I know of, but I would encourage you to continue work on yours because I haven't yet seen one that does perl regexps properly.

____________________
Jeremy
I didn't believe in evil until I dated it.